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This  thssls  corrscts  th*  discrspanciss  bstwssn  ths  input 
Translator  and  tha  Z-80  Raalization  Voluaa  of  tha  Cosputar 
Systan  Daaign  Environaant  <CSDE>.  It  also  dsaonstratad ,  for 
tha  first  tins*  cosplata  procassing  of  a  problan  through 
CSOE.  CSDE  is  a  coaputar-aidad  daaign  systan  for  raal  tina 
controllars.  Tha  Translator  takas  as  input,  a  Coaputar 
Systaa  Daaign  Languaga  (CSDL>  problan  and  ganaratas  a 
priaitiva  list.  Each  priaitiva  is  ante  .>d  to  idantically 
nanad  priaitiva  raalizations  in  tha  Raalization  Voluaa.  Tha 
final  outputs  ara  hardwara  and  softwara  listings  to 
inplaaant  tha  initial  daaign. 
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I.  INTRQDUCTIQM 


In  th*  fi«ld  of  conputor  myutmmm  dovolopnont,  th* 
current  tochnlquM  ar«  coning  undnr  incrnannd  acrutlny 
bacauaa  of  intolarably  high  coata.  Hardwara  and  aoftwara 
coata  naka  up  tha  two  conponant  parta  of  conputar  ayatana 
davalopaant  coata.  Ona  aourca  pro 3 act a  aoftwara  to 
conpriaa  approxinataly  90  parcant  of  total  ayatan  coata  by 
1985  [Raf .  1:  p.  71.  Thia  trand  appliaa  aqually  to  larga 
autonatad  data  procaaaing  ayatana  and  to  apacial  purpoaa 
nicroprocaaaor  baaad  ayatana,  alao  cal lad  anbaddad  ayatana. 
Total  aoftwara  coata  for  anbaddad  conputar  ayatana,  alona, 
in  tha  Dapartnant  of  Dafanaa<DOD)  ara  projactad  to  axcaad 
32  billion  dollara  by  1990  CRaf.  l:  p.  81  with  40  to  75 
parcant  of  thia  total  going  to  aoftwara  naintananca.  Sinca 
anbaddad  conputar  ayatan  axpandituraa  conpriaa  roughly  50 
parcant  CRaf.  2:  p.  451  of  all  DOO  aoftwara  apanding,  thia 
claarly  illuatrataa  that  waya  nuat  ba  found  to  raduca  thaaa 
coata . 

Currant  aoftwara/ayatana  davalopaant  aathodologiaa 
ganarally  anbody  a  lifa-cycla  approach  with  varioua  phaaaa 
auch  aa  raquirananta  analyala,daalgn,  coding,  inplaaantation 
and  taating.  Thia  procaaa  ia  axpanaiva,  tina  conauning  and 
flawad  nainly  bacauaa  tha  hardwara  choicaa  ara  nada  aarly 


in  tha  procaaa  to  inaura  hat  .wara  availability  upon 


coaa«nc«Mnt  of  aystaa  tooting.  Consoquontly*  oiojudgnonto 
concornlng  hordworo  and  aoftwaro  Intogration  and  tho 
inability  to  coaplotoly  aatiafy  tho  original  roquiroaonta 
opacification  auat  oithor  bo  'livod  with'  at  tho  and  of  tho 
pro^oct  or  corroctod  at  groat  oxponao. 

A  >'  matod  doaign  toola  of  varioua  typoa  aooa  to  hold  tho 
groatoat  proaiao  in  toraa  of  incroaaing  productivity  of 
ayatoaa  doaignora  and  prograaaora.  Thoy  rango  in  coaploxity 
froa  ainglo  function  toola  auch  aa  coapilora.  intorprotora 
and  oditora  to  fourth  gonoration  languagoa,  applicationa 
gonoratora  and  coaploto  aoftwaro  ayatoaa  gonoratora  [Rof.  3: 
p.  63] .  Tho  koy  point  of  thoao  lattor  typoa  ia  that  thoy 
groat ly  roduco  tho  aaount  of  labor  roquirod  to  finiah  a 
ayatoa  doaign  onco  tho  roquiroaonta  apocif ication  haa  boon 
coaplotod.  Although  thoao  toola  aay  bo  priaarily  thought  of 
aa  applying  to  largo  autoaatod  data  procoaaing  pro3octa,  tho 
principloa  alao  apply  to  oaboddod  coaputor  ayatoaa. 
Thus,  aiailar  toola  oxiat  and  aro  boing  dovolopod  to  aid 
doaignora  of  oaboddod  ayotoaa.  oxaaploa  of  which  aro  roal- 
tiao  control lor a  and  coaputor a  found  in  woapona  ayatoaa 
guidanco  packagoa. 

Ono  approach  to  coaputor-aidod  doaign  toola  for  aoftwaro 
and  ayatoaa  doaign  ia  rapid  prototyping.  Rathor  than  going 
through  tho  traditional  phaaoa  of  tho  doaign  procoaa  and 
hoping  that  tho  ainglo  final  product  ia  on  tiao,  on  budgot. 


and  aatiafioa  tho  roquiroaonta 


rapid 


apocif ication , 


prototyping  allowo  prallainary  daalgna  to  ba  producad 


ralativaly  chaaply  and  quickly.  Changaa  to  a  flrat 
prototypa  can  ba  aaally  Incorporatad  Into  a  aacond  and  the 
procaaa  contlnuaa  until  tha  daalrad  raaulta  ara  achlavad. 
Tha  Important  point  to  ba  ramambarad  la  that  tha  flrat  atap 
In  any  daalgn,  tha  raqulramanta  apaclf Icatlon,  will  still 
raqulra  thorough  raaaarch  by  tha  daslgnar  ragardlaas  of  what 
daalgn  toola  ara  aaployad.  Rapid  prototyping  ancouragas  tha 
consldaration  of  aoftwara  and  hardwara  alnultanaoualy 
throughout  tha  davalopnant  cycla  and  should  raault  In  tha 
optimum  daalgn  of  a  mlcrocomputar  baaad  product  at  tha 
lowaat  coat  CRaf .  3:  p.  761  . 

A  conputar<-aidad  daalgn  tool  for  rapid  prototyping  of 
alcroprocaaaor  baaad  raal-tlma  controllars  haa  baan  in 
davalopnant  at  tha  Maval  Postgraduata  School  alnca  1982. 
Tha  Computar  Syatana  Daalgn  Environmant  (CSDE)  was 
originally  Inplanantad  by  Alan  A.  Rosa  [Raf.  43  In  1978 
baaad  on  Initial  raaaarch  by  H.N.  Natalan  CRaf.  53.  CSDE 
has  baan  tha  sub^act  of  aavaral  thaala  afforta  at  NPGS,  aach 
axamlnlng  a  dlffarant  modula  of  tha  ayatan.  Currant ly»  all 
conponanta  of  tha  ayatan  hava  baan  complatad,  but  cartaln 
conflicts  batwaan  soma  of  than  raqulrad  raaolutlon  bafora  a 
auccaasful  danonatratlon  of  CSDE  could  ba  accompliahad.  Tha 
aubjact  of  this  thaala  was  to  idantify  and  rasolva  tha 
procadural  conflicts  that  axlatad  batwaan  cartaln 
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•lapsad.  Thla  daflnltlon  of  'a.f ixadwalt '  waa  conflraad  by 
LtCol  Roaa  prior  to  conatructlon  of  tha  Z-80  prlaltiva.  Ha 

TASK  KBINPMAIN; 

NENU:>0;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHAR>1  THEN  MINTAC  :«1;  END  IF; 

- >  WAIT  IONS;  < - 

END  KBINPMAIN; 

Flgura  4 

CSDL  Problam  Sagaant  Corraaponding  to  Priaitivaa  in  Fig  3 

waa  consul tad  prior  to  construction  of  all  othar  priaitivaa 
in  quastion  bacauaa  of  hia  faailiarity  with  Matalan'a 
concapts  of  tha  CSDL  languaga. 

A  final  aourca  of  inforaation  to  ba  chackad  prior  to 
actual  Z-ao  priaitiva  construction  ia  ona  or  both  of  tha 
othar  two  currantly  axiating  raalization  voluaaa.  For 
axaapla,  Roaa  wrota  an  'a.f ixadwait'  priaitiva  for  hia  Intal 
8080  Raalization  oluaa  [Raf.  4:  p.  B-4] .  This  providad  an 
axcallant  nodal  -on  which  to  work  with  good  axanplas  of  tha 
propar  placaaant  of  CSDE  atataaanta  aa  wall  aa  tha  aasaably 
languaga  statanants  that  would  causa  tha  control lar  to 
axacuta  tha  function  of  this  priaitiva. 

B.  COMPUTER  SYSTEM  DESIGN  LANGUAGE  (CSDL)  PHILOSOPHY 

Bafora  discussing  actual  priaitiva  construction  an 
inportant  quastion  naads  to  ba  answarad.  Why  only  construct 
prinitivas  in  tha  Z-80  Raalization  Voluaa  to  natch  axiating 
priaitivaa  availabla  fron  tha  Translator  instaad  of  changing 


«•  tarKlnals.  In  this  caa*  <PERIOD>  can  ultlaataly  be  a 
nuabar  and  aaasura  of  tlaa  ranging  from  hours  to 
nanoaaconda.  Tha  syntax  for  's.f Ixadwalt'  is  ralatlvaly 
straight  forward  but  tha  format  for  construction  of  a 
prlmltlva  has  still  not  baan  nada  claar. 

Tha  naxt  stap  is  to  look  at  tha  primitiva  list  .7anaratad 
by  tha  Translator  from  tha  CSDL  tast  program  to  find 
's.f ixadwait' .  A  aagmant  of  tha  primitiva  list  containing 
's.f ixadwait'  is  shown  in  Figura  3.  This  primitiva  list  was 


P  33t.ganaratad  for:  KBINPNAIN  •••••••• 

P  34s.proc  (KBINPMAIN:) 

P  3Ss.sssign  ( MENU, 0002: 8, 8 > 

P  38s.issuavant  <MENU:8> 

P  37s.sansacond  (KEYCHAR:8) 

P  38s. aq  <«TOl,KEYCHAR,0COl:8,8,8> 

P  39s. ^mpf  (0TO1, 002:8) 

P  40s. assign  (MINTAC,0COl:8,8> 

P  41s. loc  (002:) 

- >  P  42s.fixadwait  (10)  < - 

P  43s.axltproc  (KBINPMAIN:)  •••••••• 


Figura  3  Primitiva  List  Sagmant  Containing  's.f ixadwait' 


ganaratad  for  TASK  KBINPNAIN  in  tha  procaduras  saction  of 
tha  CSDL  tast  program,  shown  in  Figura  4.  By  looking  back 
and  forth  batwaan  tha  thasa  two  figuras  ona  can  undaratand 
aach  CSDL  construct  and  its  matching  primitiva.  In  tha  casa 
of  's.f ixadwait' ,  'WAIT  IONS'  rasults  in  tha  primitiva 
's.fixadwait  (10)'  and  naans  that  whan  tha  'WAIT' 
instruction  is  ancountarad  no  othar  tasks  ara  to  ba  axacutad 


or  contingancias  chackad  until  tha  spacifiad  tima  has 


th««ls  CR«£«  8:  pp.  47-S4] .  Th«  syntax  structurs  for  a 
glvan  prlaitiva  aarvas  aa  tha  baala  for  davalopnant  of  a  naw 
prlaitlva  raallzatlon.  Nawly  davalopad  prialtivaa  ara 
dlacuaaad  Individually  in  aubaaction  C  of  thia  chaptar  and 
tha  CSDL  syntax  atructuraa  that  apply  ara  liatad  aa  aach  ona 
is  diacuaaad. 

In  aoat  caaaa,  tha  Backua-Naur  syntax  atructuraa  wars 
insufficiant  to  dataraina  tha  aaaninga  of  naw  priaitivaa. 
Ona  also  had  to  study  tha  applicabla  porti  n  of  Carson's 
CSDL  taat  prograa  and  look  at  tha  corraaponding  sat  of 
priaitivaa.  In  thia  aannar  ona  could  aaa  tha  contaxt  in 
which  tha  priaitiva  was  uaad  to  battar  dataraina  its 
aaaning.  For  axaapla,  to  dataraina  tha  aaaning  of 
'a.f ixadwait'  first  look  at  its  syntax  structura  in  figura 
2.  Nota  that  a  word  not  ancloaad  in  brackats  is  callad  a 

<WAIT>  WAIT  <PERIOD> 

/  WAIT  <EXPRESSION>  :  <PERIOD> 

<PERIOD>  •NUMBER*  <TIHE  MEASURE> 

<TIME  MEASURE>  ::-H/M/S/MS/US/NS 

Figura  2  Syntax  Structura  Corraaponding  to  'a.f ixadwait' 

tarainal  and  a  word  that  ia  ancloaad  in  brackats,  <  >,  is 
callad  a  nontarninal.  Tarainala  appaar  in  a  CSDL  problaa  as 
ia,  whila  nontarainals  ara  locatad  alsawhara  in  tha  Backua- 
Naur  description  of  CSDL  until  thay  ultiaataly  ara  dafinad 


avallabl*  from  tha  Tranalator  for  ona  to  ona  corraapondanca . 
Tha  nat  raault  waa  that  IS  of  39  poaaibla  prialtlvaa 
aval labia  from  tha  tranalator  had  no  matching  prlaltlva  in 
tha  Z-dO  Raalizatlon  Voluaa.  Thua,  tha  firat  taak  waa  to 
wrlta  naw  prialtlvaa  for  tha  Z-80  Raalizatlon  Voluaa  to 
match  tha  outatandlng  15  from  tha  Tranalator. 

Salth  wrota  68  aoftwara  prialtlvaa  for  him  Z-80 
Raalizatlon  Voluaa.  It  would  aaaa  to  ba  a  fairly  raaaonabla 
taak  to  wrlta  IS  aora.  Soma  wara  ralatlvaly  aaay  whlla  a 
faw  wara  not  conatructad  for  raaaona  dlacuaaad  latar. 

A.  DETERMINING  MEANINGS  OF  NEW  PRIMITIVES 

Tha  ganaral  approach  to  writing  a  naw  Z-80  prlaltlva  la 
to  firat  axaalna  tha  part  of  tha  CSDL  languaga  that  tha 
prlaltlva  rapraaanta  and  to  undaratand  what  It  aaana.  Slnca 
no  languaga  manual  axlta  for  CSDL,  ona  auat  axaalna  tha 
actual  ayntactlc  atructura  that  corraaponda  to  tha 
prlaltlva.  Caraon  aada  thla  corraapondanca  through  tha  uaa 
of  production  nuabara.  Each  CSDL  prlaltlva  llatad  In 
Appandlx  A  haa  a  production  nuabar  which  corraaponda  to  tha 
production  nuabar  of  Ita  ayntax  atructura.  Tha  CSDL  ayntax 
atructuraa  ara  dlaplayad  In  Backua-Naur  fora  which  la  a 
atandard  rapraaantatlon  of  tha  ayntax  atructuraa  of  a 
coaputar  languaga  CRaf.  10:  p.  16).  Originally  concalvad  by 
Matalan,  CSDL  waa  rafinad  by  Caraon  whan  ha  davalopad  hla 
Tranalator  and  la  dlaplayad  by  production  nuabar  in  hla 


III.  METHODOLOGY 


Th«  t«ak  of  ldont.lflcat.ion  and  corroctlon  of 
dlacropanclaa  batwaan  output  from  Caraon'a  Translator  and 
prlaltlvaa  avallabla  In  Smith's  Z-80  Raallzation  Voluaa  Is  a 
difficult  aoftwsra  maintananca  projact.  Tha  Importanca  of 
wall  documantad  coda  and  tha  daslrablllty  of  a  faca  to  faca 
turnovar  batwaan  past  and  currant  rasaar chars  was  mada  pain¬ 
fully  claar  as  v. -irk  prograssad.  Tha  primary  sourcas  of 
Information  ragardlng  CSDE  warm  mora  than  adaquata  with  tha 
availability  of  Natalan'a  raports,  Ross's  thasls,  and  LtCol 
Ross,  hlmsalf.  Information  ragardlng  Carson's  Translator 
eonslstad  of  his  thaals,  a  loosa  shaat  summarizing 
Translator  producad  prlmitlvas  (Appandlx  A>,  and  a  CSDL  tast 
program  <Appandlx  B)  daslgnad  to  produca  a  prlmitlva  list 
(Appandlx  C>  containing  all  prlmitlvas  avsllabla  from  tha 
Translator.  Thaaa  last  two  Itaas  provad  Invaluabla  in 
halplng  to  datarmlna  tha  functional  maanlngs  of  tha 
Translator  produced  prlmitlvas.  Information  ragardlng 
Smith's  Z-80  Raallzation  Voluaa  eonslstad  of  his  wall  docu¬ 
mantad  thasls  and  a  slapla  but  Important  damonstratlon 
problam  written  and  discussed  by  Rllay  [Raf.  9:  Appandlx 
E.l  . 

Initially,  a  comparison  was  made  batwaan  software 
prlmitlvas  In  tha  Z-80  Realization  Volume  and  those 
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Onc«  th«  discr«p«inclM  with  prialtiv**  w«r«  corr*ct«d, 
s««pl«  dMonstratlon  problaaa  %*«r«  run  through  tha  antlra 
procaaa  to  taat  aach  naw  prinitiva  and  thoaa  old  Smith 
priaitivaa  ratainad  in  tha  raviaad  Z-80  Raalization  Voluma. 
Tha  damonatration  problama  wara  aiapla  and  only  provad  that 
aach  primitiva  could  ba  procaaaad  by  tha  CSDE  ayatam  baaad 
on  a  aingla  aat  of  data.  Thia  bringa  to  light  tha  ganaral 
problam  of  ayatama  taating  within  tha  computar  induatry. 
Juat  bacauaa  ona  problaa  waa  auccaaafully  danonatratad  in 
CSDE  doaa  not  naan  othar  arrora  do  not  axiat.  Howavar, 
axhauativa  taating  waa  not  poaaibla  during  tha  acopa  of  thia 
raaaarch  juat  aa  it  ia  raraly  poaaibla  in  induatry. 


prialtivM  that  %#ara  avallabla  for  uaa  in  tha  Z-80 


Raallzation  Voluna.  For  axaapla*  tha  Translator  ganarataa 
a  priaitlva  callad  'a.aanaacond'  which  ralataa  to  aanaing  a 
condition  or  tasting  for  a  cartain  flag.  Thara  was  no 
'a.aanaacond'  priaitiva  in  tha  Z-80  Raalization  Voluaa. 
This  did  not  naan  that  tha  Z-SO  Voluaa  lackad  prinitivas 
that  could  iaplaaant  tha  function  of  ' a . aanaacond ' .  Rathar, 
tha  problan  aay  only  hava  axiatad  in  tha  naaaa  uaad  to  labal 
tha  aaaa  nacro- instruct ion.  This  problan  of  diacrapancias 
batwaan  prinitivas  ganaratad  by  tha  Translator  and  thoaa 
avallabla  in  tha  Z-80  Voluna  cauaad  CSDE  to  abort  an 
attanptad  controllar  inplanantation  witLh  a  Z-80 
nicroprocaaaor  whan  such  a  diacrapancy  was  ancountarad. 

To  corract  tha  diacrapancias  with  prinitivas,  all 
prinitivas  avallabla  fron  tha  Translator  wars  conparad  to 
thoaa  prasant  in  tha  Z-80  Raalization  Voluna.  For  Transla¬ 
tor  prinitivas  lika  's.sansacond' ,  which  had  no  natching  Z- 
80  prinitivas,  a  solid  undarstanding  of  tha  function  of  tha 
prinltiva  was  gainad.  Than  tha  Z-80  Voluna  was  axaninad  to 
saa  if  tha  function  in  quastion  was  labalad  with  a  diffarant 
nans  or  inplanantad  in  a  diffarant  nannar.  Corractiva 
actions  consistad  of  nodifying  old  prinitivas  and  adding  naw 
prinitivas  to  tha  Z-80  Raalization  Voluna  so  that  all 
prinitivas  producad  by  tha  Translator  can  now  ba  raalizad 
axcapt  for  'a. In/outport' . 


Translations  of  softwara  prialtivas  in  tha  Raalization 
Voluaa  contain  rafarancas  to  hardwara  priaitivaa,  also 
containad  in  tha  aaaa  Raalization  Voluaa.  For  axaapla.  tha 
translation  for  a  softwara  priaitiva  lika  's.clockon25' 
(ganarata  a  25  ailliaaeond  clock)  contains  tha  stataaant. 
'includa  h. clock'.  'h. clock'  is  tha  Z-60  hardwara  priaitiva 
which  dataila  tha  connactiona  for  tha  countar-tiaar  chip  on 
tha  CPU  circuit  board  to  produce  a  25  ailliaaeond  clock. 
Modificationa  or  additiona  to  aoftwara  priaitivaa  in  a 
Raalization  Voluaa  auat  also  ba  accoapaniad  by  appropriate 
changes  to  hardwara  priaitivaa.  This  insures  that  a 
raalizabla  controller  design,  in  taras  of  aoftwara  and 
hardwara,  can  still  ba  produced  by  CSDB. 

B.  FOCUS  OF  THESIS 

Tha  Translator  aodula  of  tha  CSDE  aystaa  was  not 
developed  by  Rosa  during  his  initial  research.  During 
subaaquant  thesis  research  at  NPGS  tha  Translator  aodula  was 
%nrlttan  by  T.  H.  Carson  CRaf.  83.  Concurrent  to  Carson's 
work,  tha  Z-80  Raalization  Voluaa  was  developed  by  Saith 
CRaf.  63.  A  sueeassful  daaonstratlon  of  tha  coaplata  CSDE, 
froa  input  to  operation,  is  tha  subject  of  this  thesis. 
Previous  discrepancies  bat%faan  these  two  aodulas  prevented 
such  a  daaonstration . 


Tha  discrepancies  involved  diffarancas  between  tha 
priaitivaa  that  ware  produced  by  tha  Translator  and 


CR«f.  71.  Th«  Z-80  volua«»  addad  by  Salth  CRaf.  61,  waa 
choaan  for  uaa  during  thia  ^haala  raaaarch  bacauaa  tha 
prototypa  coaputar  uaad  for  daaonatratlon  ia  currantly 
eonflgurad  for  Z-80  oparation. 

Davlca  Daacrlptlon  and  Library  Updata  (Figura  1)  rafar 
to  tha  procaaa  of  adding  naw  Raalization  Voluaaa  in  tha 
futura  aa  wall  aa  updating  currantly  axiating  voluaaa.  Thia 
procaaa  ia  axtraaaly  coaplax  bacauaa  a  Raalization  Voluaa 
not  only  includaa  aoftwara  priaitivaa  and  thair  aaaaably 
languaga  tranalationa.  but  alao  containa  hardwara  priaitivaa 
which  daacriba  tha  chipa  or  aulti-chip  circuit  boarda 
raqulrad  to  iaplaaant  tha  aoftwara  priaitivaa.  In  tha  Z-80 
Raalization  Voluaa,  all  hardwara  priaitivaa  rafar  to  circuit 
boarda  rathar  than  individual  chipa  bacauaa  Saith  daaignad 
hia  Voluaa  for  tha  Pro-Log  coaputar.  Tha  Pro-Log  can  ba 
raconflgurad  aaaily  by  inatalling  diffarant  boarda  aa 
raqulrad  CRaf.  131.  An  axaapla  of  a  Z-80  hardwara  priaitiva 
la  'h.atod'  which  calla  for  an  8  bit  analog  to  digital 
convaraion  board.  Tha  actual  tranalation  of  'h.atod' 
apacifiaa  itaaa  lika  which  circuit  board  to  uaa  and  which 
juapar  pina  ahould  ba  connactad  or  dlaconnaetad . 

Tha  hardwara  Hating  producad  by  CSDE  for  a  givan  daaign 
ia  tha  indiract  raault  of  tha  aoftwara  priaitivaa  ganaratad 
by  tha  Tranalator.  Aa  Tranalator -producad  aoftwara 
priaitivaa  ara  auccaaafully  aappad  to  aoftwara  priaitivaa  in 
a  Raalization  Voluaa,  •  hardwara  ia  alao  apacifiad. 


•rrors  in  Translator  Input,  will  dapoalt  arror  nasaagaa  in 
thia  fila  CRaf .  8:  p.  281 . 


Tha  kay  aapaet  of  CSOE  ia  how  It  picks  tha  particular 
nicroprocaaaor  to  ba  uaad  and  how  it  ganarataa  tha  asaaably 
coda  listing  to  naka  tha  ayatan  work  according  to  tha 
raquiraaanta  of  tha  initial  problaa  atataaant.  Tha 


atad  by  tha  Translator  ara  raally  ganaric  in 


priaitivaa 


natura.  To  oonvart  than  to  aaaanbly  coda,  aach  prinitiva  is 
natchad  to  an  idantieally  nanad  prinitiva  in  tha  Raalization 
Voluna  that  appliaa  to  tha  npaeif ic  nicroproeaaaor  that  has 


baan  nalaetad  to  inplanant  tha  problan.  For  axanpla,  tha 
Raalization  Voluna  for  tha  Zilog  Z-80  contains  a  list  of 
priaitivaa  and  tha  Z>80  aaaanbly  coda  naquanca  that 


priaitivaa  and  tha  Z>80  aaaanbly  coda  naquanca  that 
iaplananta  aach  prinitiva.  Thun,  tha  Functional  Nappar 
would  taka  tha  prinitiva,  'a.jnpf',  which  had  baan  producad 
by  tha  Translator  and  natch  it  to  'n.snpf'  in  tha  Z-80 
Raalization  Voluna.  Tha  prinitiva,  'a.^npf',  is  inplanantad 
or  raalizad  with  thraa  Z-80  aaaanbly  languaga  ntatananta. 


Thia  natching  procaaa  in  callad  functional  napping  bacausa 
tha  Translator  prinitiva  ia  nappad  into  tha  Z-80  Raalization 
Voluna.  Datails  ralating  to  variablas,  pracision,  and 
tining  ara  addraaaad  by  Roas  [Raf .  4:  pp. 79-851 . 

Tha  Library  of  Raalization  Volunas  (Figura  1)  currantly 
contains  thraa  volunaa  baaad  on  thraa  nicroprocaaaor a.  An 
Zntal  8080  Voluna  wan  davalopad  by  Roan  during  his  original 
rasaarch  and  an  Zntal  8086  volung  was  addad  by  A.  J.  Catal 
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■IcroprocMAor .  An  •xanpln  of  m  prlnltlvo  is  's.jspf'  which 
causss  a  3uap  to  a  location  if  a  variabla  is  falsa. 

Ths  Timing  Fils*  also  eallsd  tha  Application  Timing 
Tabla*  is  output  in  s  fils  namad  'I ADEFL.DAT 'and  contains 
attributes  of  tha  contingency /task  pairs  such  as  maximum 
allowed  time  duration  of  each  taak  and  contingency  and  the 
relative  priority  of  each  pair.  This  informstion  is  stored 
in  a  table  format  and  is  used  by  the  Timing  Analyzer  to 
produce  a  monitor  program  for  the  selected  microprocessor. 
The  monitor  program  (similar  to  a  simplified  operating 
system)  insures  that  all  contingency /task  pairs  sre  executed 
within  the  required  time  constrsints  as  stated  in  the 
original  CSDL  problem. 

The  third  and  fourth  output  files  from  the  Translator 
are  named  'SYHFILE.DAT'  and  ' TRANSLATE. 0 AT ' .  'SYNFILE.DAT' 
contains  the  Symbol  Tsble,  slso  called  the  Environment 
Table.  The  Symbol  Table  is  s  listing  of  attributes  of 
variables  and  constants  such  ss  type,  precision,  and  value. 
The  Symbol  Table  is  sctually  a  subset  of  the  Primitive  List 
( 'PRIHF1LE.DAT' > .  It's  use  by  the  CSDE  program  is  optional. 
If  SYHFILE.DAT  is  available,  the  Functional  Mapper  will  read 
the  Symbol  Table  before  reading  the  entire  Primitive  List 
and  the  (^DE  program  will  execute  faster.  'TRANSLATE.DAT' 
is  a  text  file  for  user  convenience  and  is  not  used  by  CSDE. 
Carson  used  it  as  an  aid  in  debugging  during  the  development 
of  the  Translator.  Currently,  diagnostics  which  trace 


Currantly*  thrM  coaBon  aleroprocassorsr  tha  Zllog  Z-BO, 
Intal  8080  and  Intal  8086*  ara  aval labia  for  hardwara 
iaplaaantation  dapandlng  on  which  aieroprocaaaor  boat 
aatiafiaa  tha  daslgn  raquiraaants  aa  dataralnad  by  CSDE. 

Tha  following  diacuaaion  ralataa  to  tha  varloua  blocka 
in  Figura  1.  Firat,  tha  problaa  atatanant  or  functional 
daacrlption  of  tha  controllar  la  writtan  in  tha  Conputar 
Syatan  Daaign  Languaga  <CSDL> .  Tha  syntax  uaad  by  CSDL  waa 
originally  dafinad  by  Matalan  and  is  aunaarizad  by  Roaa 
CRaf.  4:  pp.  10-121.  A  dadicatad  languaga  manual  for  CSDL 
has  not  yat  baan  davalopad.  Tha  CSDL  problaa  atataaant 
includaa  such  things  aa  tha  variablaa  to  ba  uaad*  functions 
to  ba  axacutad  and  contingancy/taak  pairs.  A  contingancy/ 
task  pair  is  simply  a  ststaaant  that  dascribas  which 
function  or  task  will  ba  axacutad  in  rasponsa  to  a 
particular  condition  or  contingancy.  Tha  problaa  stataaant 
is  than  input  to  tha  Translator  which  is  aquivalant  to 
inputting  a  Pascal  sourca  program  into  a  Pascal  coapilar. 

Tha  Translator  is  a  coapilar  which  raads  tha  CSDL 
program  and  ganarataa  four  output  films.  Two  of  thasa  four 
filaa  ara  raquirad  by  tha  CSDE  syataa  and  ara  shown  in 
Figura  1.  Tha  Priaitiva  List  is  output  in  a  film  naaad 
'PRIHFILE.DAT'  and  contains  a  list  of  priaitivas  which 
dascriba  tha  input  problaa.  A  priaitiva  is  basically  a 
macro- instruction  which  is  latar  tranalatad  by  CSDE  into 
assaably  languaga  instructions  for  tha  chosan 
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A.  SYSTEM  DESIGN 


To  bettor  understand  whet  the  pro^wdural  conflicts  were 
and  where  they  specifically  existed  within  CSDE,  a  review  of 
the  systes  Is  essential.  Refer  to  Figure  1  [Ref.  6:  p.  201 
for  a  slapllfled  block  diagram. 


Figure  1  Current  Ross  Controller  Design  System 

The  basic  concept  of  CSDE  Is  that  a  designer  be  able  to 
describe  a  controller  application  functionally  in  a  high 
order  language.  Input  this  description  Into  the  system  and 
obtain  software  and  hardware  llatlngs  that  describe  a 
prototype  Implementation  of  the  dealred  application. 


■odulM  ox  th«  CSDE  mymtmm  and  to  coaplata  a  auccaaaful 
daaonatratlon . 

Concurrant  to  thia  raaaarch,  two  projacta  ralatad  to 
CSDE  wara  alao  coaplatad.  Mr.  Crag  Lukaa  waa  hirad  to 
parforn  axtanaiva  aoftwara  aaintananca  on  tha  CSDE  prograa 
to  aaka  it  aora  uaar  frlandly  and  run  aora  afficlantly. 
LCDR  Jia  Poola  workad  on  a  pro^act  to  atraaalina  tha 
phyalcal  procaaa  of  running  a  daaign  problaa  through  CSDE. 

Poola' a  raaaarch  attackad  a  problaa,  docuaantad  by 
Saith  CRaf.  61  and  Rilay  CRaf.  91,  in  which  nuaaroua  atapa 
wara  raquirad  to  «fork  within  tha  CSDE  anvironaant.  Tha 
atapa  involvad  tha  aaparata  uaaa  of  tha  VAX  11/780 
ainicoaputar,  ALTOS  Z-80  aicrocoaputar ,  tha  Pro-Log 
aicrocoaputar,  and  data  tranafar  via  aodaa.  Poola 
conatructad  a  aingla  Zanith  Z-100  aicrocoaputar  workatation 
froa  which  all  CSDE  oparatlona  could  ba  conductad.  Thia 


aakaa  CSDE  auch  aora  convaniant  for  tha  uaar.  CRaf.  121 


th«  Translator  to  produca  prinitivaa  to  match  tha  onaa 
originally  availabla  in  tha  Z-60  Raalization  Voluma? 

Tha  philosophy  of  CSDL  ia  that  tha  daaignar  should  ba 
abla  to  spacify  tha  functional  daaign  of  a  controller 
totally  indapandant  from  tha  knowladga  of  any  spaclflc 
hardware  that  night  ba  used  to  build  it.  Tha  structures 
availabla  in  CSDL  are  generic  in  nature  and  allow  tha  de¬ 
scription  of  arithmetic,  logical,  and  Input/output 
operations  that  could  ba  applied  to  any  computer -baaed 
controller.  Thus,  tha  primitivaa  that  are  availabla  from 
tha  Translator  are  a  direct  reflection  of  tha  CSDL  language 
aa  originally  defined  by  Natalan.  To  change  tha  Translator 
so  it  would  produca  a  primitive  such  as  's.atod'  would  first 
raquira  a  changa  to  CSDL.  A  syntax  structure  would  have  to 
ba  added  such  that  a  designer  could  specify  an  analog  to 
digital  signal  conversion  during  an  input/output  operation. 
Why  did  Smith  include  an  's.atod'  primitive  in  the  Z-80 
Realization  Volume? 

Smith  included  many  primitives  whose  functions  are  not 
supported  by  CSDL.  Some,  like  's.atod',  were  written  to 
provide  the  capability  to  use  the  hardware  that  was 
available  to  him.  In  this  case,  one  of  the  boards  currently 
available  is  a  Pro-Log  compatible  analog  to  digital 
conversion  board,  a  Hostek  mdx-a/d8  board.  Anothar  is 
's.clockcons' ,  written  to  enable  use  of  the  3-channel  clock 
that  is  co-mounted  with  the  epu  on  the  Z-80A  epu  board.  As 
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it  stands  now,  an  analog  to  digital  function  can  not  ba 
includad  in  a  controller  dssignsd  within  tha  scope  of  CSDE 
and  would  have  to  be  added  externally  once  the  CSDE 
controller  design  was  realized. 

In  addition  to  hardware  specific  prisitlves.  Smith  also 
included  specialty  primitives  such  as  's.consfp',  's.varfp', 
and  's.fptoieee'  to  handle  internal  data  represented  in 
floating  point  notation.  Here  too,  CSDL  does  not  allow  the 
designer  to  be  this  specific. 

The  net  result  la  that  the  modified  Z-80  Realization 
Volume  produced  by  this  thesis  research  excludes  many  of 
Smith's  primitives.  If  the  CSDL  language  is  expanded  in  the 
future  some  of  these  deleted  primitives  might  then  be 
included. 

The  final  reason  for  not  making  any  changes  to  the 
Translator  is  the  lack  of  expertise  of  this  researcher  in 
the  area  of  compiler  design  and  construction.  Thir  also 
makes  it  impossible  tc  correct  a  few  formatting  erroz  4  that 
occur  in  the  Translator's  output  files.  These  iormatting 
errors  cause  the  CSDE  program  not  to  accept  a  logically 
correct  CSDL  problem  straight  from  the  Translator.  The 
specific  errors  discovered  are  discussed  in  Chapter  4  and 
summarized  in  Appendix  G. 


C.  PRIMITIVE  CONSTRUCTION 


Having  datarnlnad  tha  aaaning  of  tha  naw  prinltiva  to  ba 
conatructad*  tha  firat  atap  in  conatruction  waa  to  writa  tha 
Z-80  aaaanbly  languaga  routina  that  would  aceoapliah  tha 
daairad  function.  Tha  routina  waa  than  taatad  indapandantly 
to  aliainata  logical  and  ayntax  arrora  prior  to  incluaion  in 
tha  raat  of  tha  priaitiva  body.  Although  tha  routina  could 
ba  taatad  aaparataly  on  any  CP/M  Z-SO  aicrocoaputar,  it  waa 
aaaily  taatad  right  on  tha  Pro-Log  utilizing  tha  Zanith  Z- 
100  workatation  aat  up  apacifically  for  CSDE  raaaarch. 
Thia  workatation  conaiata  of  tha  Z-lOO  connactad  to  tha  Pro¬ 
log  and  connactad  to  tha  VAX  11/780  on  which  tha  Tranalator 
and  tha  CSDE  program  both  raaida  CRaf.  12]. 

To  taat  a  routina*  it  waa  firat  writtan  on  tha  Z-100 
ualng  an  aditor  or  word  procaaaor  lika  Wordatar  in  non- 
docunant  aoda.  It  waa  than  aaaamblad  and  linkad  uaing  tha 
procaduraa  aat  forth  by  LCOR  Jin  Poola*  davalopar  of  tha 
CSDE  work  atation  [Raf.  121.  Tha  atarting  addraaa  apaclflad 
at  tiaa  of  linkaga  muat  ba  4000h  ainca  thia  ia  whara  uaar 
addraaaabla  RAM  atarta  in  tha  Pro-Log.  Onca  tha  routina  waa 
linkad  ita  raaultant  hax  fila  waa  downloadad  to  tha  Pro-Log 
ualng  tha  AMDS  program  raaidant  on  tha  Z-100  and  on  an  EPROM 
atarting  at  OOOOh  in  tha  Pro-Log.  Datallad  procaduraa  ara 
containad  in  Poola'a  thaaia.  Having  downloadad  tha  routina 
into  tha  Pro-Log*  it  waa  run  by  praaaing  tha  raaat  button  on 
tha  Pro-Log  than  typing  C4000  on  tha  ADH-3  monitor  which  ia 
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:lso  conn«ctttd  to  th«  Pro 'Log 


RMults  wmrm  chockod  by 


inspoctlng  tho  contonta  of  appropriata  aaaory  locatlona, 
again  ualng  tha  facilltiaa  of  tha  AMDS  monitor  in  tha  Pro- 
Log.  Thia  aama  procadura  waa  uaad  to  taat  prograaa 
ganaratad  by  CSDE  axcapt  that  Inataad  of  craatlng  tha 
aaaambly  routina  on  tha  Z-100,  tha  aaaambly  program  output 
from  CSDE  warn  downloadad  from  tha  VAX  to  tha  Z-100. 

In  tha  caaa  of  'a.f Ixadwait' »  for  axampla*  tha  aaaambly 
coda  conalata  of  two  down  countar  loopa,  ona  naatad  inaida 
tha  othar,  that  dalaya  tha  cpu  from  doing  anything  alaa  aa 
Ita  axacutlng  tha  loopa.  For  damonatratlon  purpoaaa*  it  waa 
llnkad  to  a  abort  routina  to  dlaplay  aoma  lattara  on  tha 
Pro-Log  onca  tha  aoftwara  dalay  had  baan  complatad.  Tha 
dalay  waa  wrlttan  to  handla  tlma  In  mllllaaconda  vlca 
mlcroaaconda  ao  that  tha  uaar  could  aaa  tha  dalay  by  timing 
tha  Intarval  with  a  watch  from  tha  tlma  tha  routina  waa 
atartad  until  tha  lattara  actually  appaarad  on  tha  Pro-Log 
dlaplay.  Tha  rafaranca  for  Z-80  aaaambly  languaga  waa  Zaka' 
Programming  tha  Z-flO  CRaf.  141  and  tha  rafaranca  for  writing 
tha  lattar  dlaplay  routina  waa  tha  uaara  manual  for  tha  Pro- 
Log  7303  Kay board /Dlaplay  Card  CRaf.  15:  p.3-5] . 

Onca  tha  aaaambly  languaga  routina  waa  wrlttan  and 
taatad  tha  raat  of  tha  prlmitlva  waa  conatructad.  Thara  ara 
vary  atrlct  formatting  raqulramanta  for  tha  conatructlon  of 
a  prlmitlva.  Datallad  Inatructlona  ar  contalnad  In  Roaa'a 
thaala  CRaf.  4:  pp.  79-65.]  and  particular  attention  muat  ba 


paid  to  tha  column  dapandonciaa  and  format  for  tha  argumantm 
containad  in  tha  prlaltlva  titla  llna.  Tha  baat  way  to 
undaratand  prlaltlva  conatructlon  format  Im  to  study 
pravloualy  wrlttan  prlmltlvas  by  Roam  CRaf.  4:  Appandlx  B1 
and  Smith  CRaf.  6:  Appandlx  Cl. 

Whan  tha  prlaltlva  was  flnlshad  It  was  addad  to  tha  Z-SO 
Raallzatlon  Voluma.  Tha  Voluma  la  normally  containad  In  a 
flla  cal lad  RELIZE.MAC  although  tha  CSDE  program  allows  tha 
daslgnar  to  naaa  tha  raqulrad  fllas  anyway  ha  choosas.  Its 
format  la  strict  In  that  tha  first  portion  of  tha  Voluma 
must  ba  an  Indax  of  tha  prlaltlva  titla  llnaa  In 
alphabatlcal  ordar.  Tha  last  4  numbars  following  tha  sacond 
colon  of  aach  titla  llna  spaclfy  tha  flrat  occurranca  of  a 
CALC  llna,  tha  first  occurranca  of  an  ATTR  llna  and  tha 
baginning  and  andlng  llna  nunbara  locating  tha  prlaltlva 
within  tha  Voluma.  To  maka  tha  addition  or  dalatlon  of 
prlmltlvas  to  tha  Voluma  aaslar,  a  program  Is  avsllabla  on 
tha  VAX  callad  FORMAT.EXE.  It  takas  as  Input  ^ust  tha  prlm- 
Itlvaa,  strlppad  of  llna  numbars  and  with  no  Indax.  Tha 
prlmltlvas  must  start  In  column  6  and  tha  last  4  numbars 
spaclflad  In  tha  prlaltlva  titla  llnas  can  ba  dallnaatad 
simply  as  spacas  or  astarlsks  such  as  In  's.flxadwalt 
<tlma:0,1279:l5,-9,18,  ,  if  cartaln  valuas  In 
a  titla  llna  ara  to  ba  laft  Intantlonally  blank  such  as  In 
'h.cardcaga  C:  ,  ,  , 0,0, ,  tha  blanks  must  ba 
prasant  bafora  Input  to  FORMAT  or  alsa  FORMAT  will  Intact  an 


•xtra  comma  into  tha  primitlvm  tltlm  lino.  Tha  FORMAT 
program  will  craata  tha  indax«  add  lina  numbara*  and 
eorractly  fill  in  tha  laat  4  numbars  in  aach  primitiva 
titla  lina.  To  uaa  tha  formattar,  typa  RUN  FORMAT.  It  will 
aak  for  an  input  fila  nama  which  ia  tha  fila  containing  tha 
unnumbarad  prinitivaa.  Than  it  will  aak  for  an  output  fila 
nama  which  ahould  uaually  ba  RELIZE.NAC.  Tha  raaultant 
output  fila  ia  raady  for  uaa  by  tha  CSDE  program. 

Bacauaa  of  tha  variation  in  complaxity  of  tha  naw 
primitivaa#  it  ia  important  to  diacuaa  apacific  aapacta 
that  maka  aach  ona  uniqua.  Thia  ahould  halp  futura 
raaaarchara  if  CSDL  or  tha  Tranalator  ia  modifiad  and  mora 
primitivaa  naad  to  ba  addad  to  tha  Raalization  Voluma.  Tha 
following  prinitivaa  wara  addad  to  tha  Z-80  Raalization 
Voluma:  a.inputport,  a.aanaacond,  a . outputpor t ,  a.iaauavant. 
a.fixadwait.  a. call*  a.aquivalanc*  a.lnplicata*  a.forcona* 
a.whilaatart,  a. in*  a.ni*  a.atboolwait *  a.boolwait*  and 
a.waitlaaat.  Thaaa  naw  primitivaa  along  with  ralavant 
prinitivaa  from  Smith'a  original  Z-80  Raalization  Voluma  can 
ba  found  in  tha  raviaad  Z-80  Raalization  Voluma  in  Appandix 
E.  Each  of  tha  conatructad  prinitivaa  ia  diacuaaad  balow. 
Tha  primitiva*  'a. in/outport' *  warn  not  conatructad.  Tha  Z- 
80  Raalization  Voluma  now  containa  a  raalization  of  avary 
primitiva  that  can  ba  invokad  by  tha  Tranalator  axcapt  for 


a. in/outport 


Fiv«  dlff*r«nt  priaitlvM  relating  to  Input/output 
(I/0>  ara  producad  by  tha  Tranalator  which  wara  not  praaant 
In  Saith'a  Z-80  Raalizatlon  Voluaa.  Thay  ara  'a. Inputport' , 
'a.aanaacond' »  'a.outputport' ,  'a.iaauavant' ,  and 
'a. in/outport' .  A  dlacuaalon  of  Matalan's  philosophy 
towards  I/O  is  appropriata  bafora  dascribing  priaitiva 
datails. 

Matalan  statad  that  'typa'  rafars  to  how  data  say  ba 
usad  rathar  than  how  it  is  storad.  Traditionally*  wa  think 
of  typaa  in  tha  lattar  sansa*  such  as  a  variable  baing 
apacifiad  as  typa  intagar  or  raal.  CSDL  allows  3 
transsiasion  typaa:  INPUT  ONLY*  OUTPUT  ONLY*  and  DUPLEX 
(input  and  output)  CRaf.  10:  p.  181.  To  understand  tha 
diffarancas  a  raal  world  axaspla  is  prasantad. 

If  a  controller  wara  to  periodically  sense  tha 
position  of  a  valve*  tha  valve  would  need  to  produce  a 
proportional  analog  output  signal  which  *#ould  than  ba 
converted  to  a  digital  signal  by  an  analog  to  digital 
converter.  Thia  digital  signal  would  ba  available  via  a 
specific  line  to  a  specific  port  which  would  ba  uniquely 
addressed  by  tha  epu  of  tha  controller.  This  port  would  ba 
for  INPUT  ONLY  with  data  on  tha  currant  valve  position 
always  available. 

A  typical  hardware  I/O  isplasantatlon  for  a  Z-80 
sicroprocassor  night  involve  using  a  parallel  input/output 


lnt«rfac«  chip  (PIO>,  which  provldaa  2  or  3  porta.  A  port 


hara,  rafara  to  an  8-blt  connactlon  that  may  ba  uaad  for 
input  or  output  CRaf.  11:  p.  1621.  A  PIO  chip  ia 
prograaaabla  to  aat  tha  diraction  for  which  tha  porta  will 
ba  uaad.  To  provida  INPUT  ONLY*  tha  aoftwara  auat  firat 
aalact  tha  port  to  which  tha  poaition  aignal  ia  aant  and 
program  tha  PIO  ao  that  tha  aalactad  port  ia  aat  up  in  tha 
INPUT  diraction.  Onca  tha  port  ia  aat  up*  inforaation  can 
ba  raad  from  it  aa  of tan  aa  tha  programmar  daairaa  with  a 
aimpla  inatruction  auch  aa  tha  Z-dO  “in  a*(n>“*  whara  'n'  ia 
tha  port  addraaa  and  'a'  ia  tha  accumulator. 

Tha  primitiva*  'a. inputport' *  comaa  from  tha  CSDL 

ayntax*  <INPUT  SPEO::-  INPUT: <TRANSHISSION  BODY>  END  INPUT* 
and  tha  primitiva*  'a.aanaacond' *  comaa  from  tha  CSDL 
ayntax*  <DATA  INPUT>::>  SENSE  (<NAHE>>.  Ualng  tha  valva 
axampla*  aourca  to  and  primltivaa  ganaratad  by  tha 
Tranalator  might  appaar  aa  in  Figura  5.  Tha  primitiva* 

SOURCE  OBJECT 

(CSDL  Problam  Statamant)  (Primitiva  Liat) 

.  i 

ENVIRONNENT 

input:  VLVP0S*8*TTL  5 

a  • 

a  I 

PROCEDURES 

FUNCTION  VALVCHEK 
SENSE  (VLVPOS) 


.inputport  (VLVPOS* TTL: 8) 


.  aanaacond  ( VLVPOS : 8  > 


Figura  5  CSDL  Implamantation  of  Input 
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'b. input port ' ,  would  bB  uBod  to  Bot  up  th#  doBirod  port  for 
input  <i.B.  Bond  appropriato  control  coda  to  tha  PIO)  and 
'a.aanaacond' ,  would  ba  uaad  to  actually  gat  data  from  tha 
daairad  port  into  tha  cpu. 

Similarly*  tha  controllar  ahould  ba  abla  to  aand  a 
digital  output  aignal  via  a  digital  to  analog  convartar  to 
tha  valva  poaitioning  motor.  Thim  would  ba  an  OUTPUT  ONLY 
function.  Tha  prlmltiva*  ' a . outputpor t '  comaa  from  tha  C3DL 
ayntax*  <OUTPUT  SPEC>::«  OUTPUT: <TRANSMISSION  BODY>  END 
OUTPUT,  and  'a.laauavant'  comaa  from  <DATA  OUTPUT>::-  ISSUE 
(<NANE>).  Tha  prlaitiva,  ' a . outputport ' .  would  ba  uaad  to 
aat  up  tha  daairad  port  for  output  (i.a.  aand  tha  appro- 
priata  control  coda  to  tha  PIO>  and  'a. iaauavant'  would  ba 
uaad  to  actually  aand  tha  digital  valva  poaitioning  aignal 
to  tha  daairad  port  for  output. 

Tha  implamantation  of  data  tranamiaaion  typa  DUPLEX 
ia  mora  complax.  Duplax  aaana  tha  capability  of  INPUT  AND 
OUTPUT  through  a  alngla  port  with  no  prior  aat  up. 
Thaoratlcally ,  thia  night  imply  uaing  a  PIO  that  did  not 
raquira  control  codaa  to  aat  up  tha  diraction  of  ona  of  ita 
porta  prior  to  uaing  that  port.  Data  could  ba  'aanaad'  from 
or  'iaauad'  to  a  port  dafinad  aa  duplax  without  having  to 
worry  if  tha  port  waa  configurad  corractly.  In  tha  avant 
that  duplax  waa  not  implamantad  aolaly  through  tha  uaa  of  a 
non-programmabla  PIO,  it  might  ba  achiavad  by  Including  coda 
within  tha  'a. iaauavant'  and  ' a . aanaacond '  prlmitivaa 


to  chango  port  dlractlon  whanavar  an  output  or  Input 
waa  raqulrad.  Undar  what  condltlona  would  a  daalgnar  daaira 
a  DUPLEX  tranaalaalon  typa?  Parhapa  thara  ara  hardwara 
raatrlctlona  that  Halt  tha  nuabar  of  porta  availabla  to  tha 
control lar  and  DUPLEX  la  tha  only  way  to  aatlafy  all  of  tha 
I/O  raqulraaanta  of  tha  axtarnal  davlca  balng  controllad. 
Tha  CSDL  phlloaophy  la  that  tha  daalgnar  la  not  concarnad 
with  hardwara  whan  ha  orlglnataa  hla  daalgn.  Hardwara  la 
dataralnad  by  tha  raallzatlon  voluaa,  whoaa  aoftwara 
prlaltlvaa  ara  wrlttan  for  a  flxad  aat  of  coaponanta 
apaclflad  by  tha  hardwara  prlaltlvaa.  If  a  daalgnar  Inputa 
ona  daalgn  Into  CSDE  with  too  aany  INPUT  ONLY  or  OUTPUT  ONLY 
data  tranaalaalon  typaa,  CSDE  alght  daclara  tha  daalgn  not 
raallzabla  for  a  glvan  alcroprocaaaor  typa  auch  aa  eontalnad 
In  tha  Z-60  Raallzatlon  Voluaa.  In  tha  caaa  of  tha  Z-80 
Voluaa,  hardwara  la  apaclflcally  conflgurad  at  tha  board 
laval  and  I/O  aoftwara  prlaltlvaa  auat  Incorporata  tha 
prograanlng  guldallnaa  of  tha  board  nanufacturara. 
Altarnataly,  If  tha  daalgnar  raaubalttad  hla  daalgn  ualng 
aora  DUPLEX  typaa  In  llau  of  aaparata  INPUT  and  OUTPUT 
typaa,  tha  daalgn  alght  ba  raallzabla. 

Thara  ara  no  PIO  davlcaa  Inatallad  In  tha  hardwara 
currantly  allowad  by  tha  Z-80  Raallzatlon  Voluaa.  If  a  PIO 
chip  waa  Inatallad*  a  DUPLEX  data  tranaalaalon  typa 
prlaltlva  could  ba  addad  to  tha  Z-80  Voluaa  by  conatructlng 
tha  'a. In/outport'  prlaltlva  auch  that  It  aaulataa  tha 
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DUPLEX  function.  Ono  poMlblo  achoao  might  bo  thot  whon  a 
DUPLEX  typo  io  doclarod*  it  io  automatically  aot  up  to  a 
dofault  modo  of  INPUT  only.  Data  may  bo  'aonmod'  from  tho 
roforoncod  port  with  no  chango  in  port  aotup.  If  data  is 
'isauod'  to  this  port  than  a  softwaro  mochanism  must  oxist 
to  rosot  tho  port  for  OUTPUT  first  and,  upon  complotion  of 
tho  data  output,  rosot  tho  port  to  its  dofault  configuration 
of  INPUT  ONLY. 

In  tho  caao  of  tho  Z-80  Roallzalon  Volumo,  a  singlo 
data  port  on  tho  Pro-Log  koy board/display  card  is  availablo 
for  input  or  output.  A  singlo  control  port  is  also 
availablo  to  control  tho  modo  of  display  of  data  ones  it  has 
boon  output  from  tho  CPU  to  tho  koyboard/display  card.  Data 
sont  to  tho  control  port  controls  tho  output  display  and  not 
tho  data  port.  Thus,  this  singlo  data  port  is  DUPLEX  in 
naturo  sines  no  control  codos  aro  roquirod  to  configuro  it 
for  input  or  output.  Howovor,  no  DUPLEX  function,  i.o.  an 
a.in/outport  primitivo,  has  boon  addod  to  tho  Z-80  Volumo. 
Bocauso  of  tho  simplo  hardwaro  availablo,  it  would  moroly 
duplicato  tho  functions  of  tho  's. inputport'  and 
's.outputport'  primitlvos.  Nora  importantly,  a  flaw  oxists 
in  tho  Translator  which  will  not  allow  data  to  bo  'sonsod' 
or  'issuod'  through  a  varlablo  that  has  boon  doclarod  as 
DUPLEX . 

To  domonstrato  tho  concopts  of  I/O  for  this  thosis. 


tho  I/O  primitlvos  havo  boon  constructod  vory  simply 


Tho 


hardware  thay  uaa  la  tha  Pro-Log  kayboard/dlaplay  board 
which  only  haa  ona  data  port  addraaaad  at  dOh.  Tha  valua  of 
tha  digital  algnal  availabla  at  tha  port  can  ba  datarninad 
by  inapaction  of  tha  8  lada  on  tha  board,  rapraaanting  bita 
O  through  7  raad  right  to  laft.  Tha  'a.outputport' 
priaitiva  craataa  an  output  variabla  uaad  to  hold  tha 
output  valua,  claara  tha  lad  diaplay,  and  aanda  a  control 
coda  to  tha  board'a  alngla  control  port,  dlh,  to  diaabla  tha 
alphanuaaric  diaplay.  Tha  'a.iaauavant'  priaitiva  outputa 
tha  contanta  of  tha  output  variabla  daclarad  by 
'a.outputport'  to  tha  data  port.  Tha  valua  can  than  ba 
datarninad  by  inapaction  of  tha  6  lada. 

Tha  priaitiva,  'a.lnputport' ,  craataa  an  input 
atoraga  location.  No  othar  actiona  ara  raquirad  bacauaa  of 
tha  vary  llaltad  I/O  facilitiaa  of  tha  Pro-Log 
hayboard/diaplay  card.  With  only  ona  data  port  availabla 
for  input,  no  control  codaa  ara  raquirad.  Whan  nora  coaplax 
I/O  hardwara  la  availabla  thia  priaitiva  will  raquira 
aodif ication.  Tha  priaitiva,  'a.aanaacond' ,  ia  alightly 
artificial  in  that  a  convaraion  routina  waa  addad  to  accoa- 
aodata  tha  2  rockar  awitchaa  on  tha  kayboard /diaplay  card. 
Thaaa  awitchaa  diractly  control  tha  contanta  of  bita  8  and  7 
<aaaunaa  bita  nunbarad  0  to  7>  of  tha  8-bit  data  port  whan 
it  ia  'aanaad'  for  input.  Thua  by  aaaking  out  all  but  tha 
laft  aoat  2  bita,  4  poaalbla  valuaa  can  ba  'aanaad'  for 
input  aa  diractly  controlled  by  tha  poaition  of  tha  rockar 


•witchM 


Four  posoiblo  input  valuos  war*  sufficiant  for 


tha  daaonatratlon  problaas  attanptad.  Exact  data! la  aa  to 
awltch  poaltiona  can  ba  found  in  tha  coaaant  linaa  of  tha 
priaitiva  in  Appandix  E. 

2.  S.fixadwait 

Tha  priaitiva*  'a.f ixadwait' ,  haa  alraady  baan 
diacuaaad  in  aaction  III. A.  Thara  ar*  a  faw  additional 
pointa  of  intaraat. 

Thia  priaitiva  contain*  an  attribut*  lin*  in 
addition  to  coaaant  and  calc  linaa.  Attributa  linaa  ara 
uaad  whan  tha  langth  of  tia*  of  axacution  of  a  priaitiva  ia 
diractly  ralatad  to  ona  of  ita  input  valuaa.  In  thia  caaa* 
tha  input  valua  ia  tha  daairad  tiaa  dalay  in  ailliaaconda 
and  alao  control*  tha  langth  of  axacution  of  tha  priaitiva. 
Horaally*  tha  aaxiaua  axacution  tiaa  for  a  givan  priaitiva 
appaara  in  tha  priaitiva  titla  lina  aa  tha  aacond  nuabar 
aftar  tha  aacond  colon.  Tha  unit*  ara  in  clock  cyclaa.  A 
nagatlva  nuabar  ia  traatad  aa  a  flag  to  indicat*  that  tha 
actual  attributa  naada  to  ba  calculatad  at  coda  ganaration 
tiaa.  Tha  flag  i*  alao  tha  offaat  valua*  atartlng  froa  tha 
priaitiva  titla  lina*  of  tha  lina  nuabar  whar*  tha  attribut* 
calculation  can  ba  found. 

In  tha  caaa  of  'a.f ixadwait' *  tha  attribut*  lin*  ia 
'attr  tiaa  «<tia*><*4000'  and  aaana  taka  tha  input  valua  and 
aultiply  it  by  4000*  with  tha  raault  baing  tha  raal 
axacution  tiaa  for  thia  priaitiva  in  taraa  of  clock  cyclaa. 


Th*  factor  of  4000  comas  from  tha  fact  that  1  mlllisacond 
aquala  4000  clock  cyclaa  with  a  4  Nhz  clock.  Tha  Z-80A 
auppliad  on  tha  Pro-Log  cpu  board  uaas  a  4Mhz  clock. 

Thara  la  a  format  arror  in  tha  way  tha  Translator 
producaa  this  prlmltlva.  Spacif Ically*  thara  la  a  missing 
colon;  tha  format  should  ba  'a.flxadwalt  (10:)'  Inataad  of 
'a.flxadwait  (10)'.  Normally  tha  mlaalng  colon  would  causa 
a  fatal  arror  within  tha  CSDE  program  but  tha  program  has 
baan  modlflad  to  accapt  's.f Ixadwalt'  without  tha  colon. 
Informatlva  arror  masaagaa  atlll  raault  to  ramind  tha 
daaignar  that  tha  Translator  raqulraa  modification. 

3.  3. call 

Tha  prlmltlva,  'a. call',  comas  from  tha  syntax, 
4PERF0RN  TASK>  «>ID»,  and  glvaa  tha  daaignar  tha  ability 
to  axacuta  ona  task  from  Inslda  anothar  task  without  first 
having  to  chack  tha  othar  task's  assoclatad  contlngancy. 
Tha  Z-80  coda  to  Implamant  this  prlmltlva  consists  of  a  call 
Instruction  to  a  labal  that  narks  tha  daslrad  task's 
aubroutlna.  Although  logically  corract,  this  prlmltlva  is 
not  usaful  within  CSDE  bacausa  no  machanlsm  axlts  to  account 
for  tha  axtra  run  tlna  that  Is  Incurrad  whan  a  task  Is 
axacutad  In  this  nannar.  If  's.call'  la  usad,  CSDE  will  not 
hava  an  accurata  axacutlon  tlma  statistic  for  a  glvan  daslgn 
and  could  falsaly  ganarata  a  raallzatlon  of  a  problam  that 
doas  not  naat  tha  daaignar 's  timing  raqulramants . 


Aa  dlscuaaad  balow  in  sact.ion  IV. C.,  tha  CSDE  program 
undar«#ant  axtanslva  ravlslon  to  inprova  afflciancy  and  aaaa 
of  uaa.  An  Indlract  banaflt  of  prlaitlva  tasting  for  this 
thasis  was  that  tha  raviaad  CSDE  program  was  abla  to  ba 
dabuggad.  Whila  important  to  tha  ovarall  CSDE  projact  this 
somatimaa  causad  graat  frustration  whan  CSDE  program  arrors 
slowad  down  tha  tasting  procass.  Primitiva  tasting  also 
validatad  tha  usafulnass  of  tha  CSDE  workstation. 

A.  TESTING  SEQUENCE  AND  EXAMPLE 

A  datailad  usar's  manual  for  working  within  tha  CSDE 
anvlronmant  is  containad  in  Poola's  thasis  CRaf .  121 .  It 
spacifiaa  tha  axact  command  saquancas  to  usa  tha  CSDE 
program  on  tha  NPGS  Computar  Scianca  VMS  Vax  11/780.  It 
also  axplains  how  to  usa  tha  CSDE  workstation  to  transfar 
filas  batwaan  tha  Z-100  and  tha  VAX,  assambla  and  link  Z-80 
programs  producad  by  CSDE,  and  download  rasultant  hax  filas 
to  tha  Pro-Log.  Tha  procass  is  summarizad  as  follows. 

Ones  a  naw  primitiva  raallzation  was  wrlttan  and  addad 
to  tha  Raallzation  Voluma  aa  discussad  in  Chaptar  3,  a  short 
CSDL  problam  was  wrlttan  to  axarclsa  it.  Appandix  B  shows 
tha  propar  CSDL  format  to  ganarata  avary  primitiva  axcapt 
's.not'.  Tha  fila  containing  tha  CSDL  problam  was  ranamad 
DAT. DAT,  as  raquirad  for  input  to  tha  Translator.  Tha 
problam  was  than  run  through  tha  Translator  to  ganarata  tha 
primitiva  list,  application  timing  abla,  symbol  tabla,  and 
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Th*  objactiv*  during  tasting  was  to  varlfy  that  avary 
prlaitlva  In  tha  ravlaad  Z-80  Raallzatlon  Voluaa  could  ba 
procaaaad  through  CSDE  to  produca  arror  fraa  coda  that 
would  run  on  tha  Pro-Log  coaputar.  This  appllad  to  nawly 
conatructad  prlsltlva  raallzatlons  as  wall  as  thosa  ratalnad 
from  Smith'  Z-80  Voluaa.  All  prlaltlvas  wara  succaaafully 
taatad  at  lasst  ones  axcapt  for  's.ln',  's.nl',  and  'a.not' . 
Tha  first  two  wara  dlscussad  In  sactlon  III.C.7.  and  tha 
1 attar  was  not  taatad  bacausa  tha  Translator  would  not 
ganarata  It.  Many  unsuccaaaful  attaapts  wara  aada  to 
dlscovar  tha  propar  syntax  for  'a. not'  slnca  tha  Backus-Naur 
fora  spaclflad  by  Carson  failad  to  work. 

To  alnlaiza  tha  potantlal  for  aultlpla  arrors  within  ona 
tast  problaa  only  ona  naw  prlaitlva  was  taatad  at  a  tlaa. 
This  involvad  writing  slapla  CSDL  problaas  for  aach 
prlaitlva  usually  with  only  two  contlngancy  task  pairs.  Tha 
tasting  was  not  axhaustlva.  For  axaapla.  If  a  prlaitlva 
Ilka  's.ga'  <chacks  condition  for  graatar  than  or  aqual  to) 
was  taatad,  not  all  posalbla  combinations  of  positive  and 
negative  numbers  wara  submitted  as  input  data.  This  was 
bacausa  of  tlaa  constraints  and  tha  fact  that  Smith  already 
tasted  tha  logic  of  his  Z-80  coda  during  davalopaant  of  tha 


original  Z-80  Raallzatlon  Volume. 
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Inclualon  In  4  control l«r  progron.  Thl«  foaturo  la 
avallabla  £or  uaa*  utilizing  tha  global  variablaa  'initlk' 
and  'arnd'.  Figura  9  daaonatrataa  how  blocka  of  coda  to  ba 
axacutad  onca  (for  initializatlona)  might  ba  raalizad. 

Tha  priaitiva,  'a. monitor',  alao  containad  a  maana  of 
ganaratlng  coda  within  a  controllar  program  that  would  only 
ba  axacutad  onca  bafora  antaring  tha  monitor  aaction.  Thia 
waa  diffarant  from  tha  mathod  uaa  in  'a. main'  in  that  a 
boolaan  flag,  '0initial',  waa  chackad  to  cauaa  a  3ump  to 
anothar  aagaant  of  coda  that  might  ba  uaad  for  auch  thinga 
aa  initializing  variablaa.  Thia  initializing  block  of  coda 
waa  raalizad  from  two  primitivaa,  'a. Inltalcona'  and 
'a.initaland' .  Thaaa  primitivaa  ara  not  producad  by  tha 
Tranalator  and  wara  diacardad  along  with  tha  atatamanta  in 
'a. monitor',  that  rafarrad  to  tham.  Tha  mathod  avallabla  in 
'a. main'  for  initializatlona  ia  aimpla  and  aora  flaxibla. 
Initial  valuaa  of  variablaa  ara  currantly  aat  at  zaro  whan  a 
controllar  program  ia  aaaamblad  by  uaa  of  aaaamblar 
atatamanta  auch  aa  'dafw  O'. 

Finally,  tha  primitiva,  'h. clock',  waa  rawrittan  to 
corractly  daacriba  all  juapar  connactiona  raquirad  on  tha 
cpu  board  to  iaplamant  a  1  milliaacond  clock.  Tha  original 
varaion  of  'h. clock'  liatad  only  ona  of  tha  mix  connactiona 
raquirad  to  anabla  channal  O  to  faad  channal  1  of  tha  etc. 
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not  inplOMntod  in  tho  roviaod  Roalizatlon  Voluna,  auch 


blocka  could  ba  raalizad  by  aodlfying  axiating  prialtiva 
raallzationa  with  'incl'  or  'call'  atataaanta.  Thaaa 
atatananta  could.  In  turn,  rafaranca  othar  aoftwara 
prlaitlvaa  whoaa  coda  would  ba  axacutad  only  onca  upon 


Sanpla  So£twara 
Output  froB  CSDE 


--<  — 


- > 


I 


Coananta 


.z80 

• 

1 

aaag 

a 

1 

1 

• 

IP  WiO 

a 

I 

1 

< — 

1 

1 

a 

(othar 

a 

coda) 

a 

3P  000 

1  1 

1  ^  • 

0io:  nop 

a 

• 

(coda 

hare  S 

axacutad  onca)  i. 

1 

a  1 

JP  011  <---- 

000:  nop  ! 

1 

(othar 

coda)  1 _ 

Coda  ganaratad  £roB  tha 
prlBltlva  'a. Bain' 


Thia  inatruction  appaara  in  tha 
raalization  aa  ':)p  0i<initlk>' 
whara  initially,  initlk  *  0. 


Thia  inatruction  would  appaar 
.in  tha  raalization  aa 
'3P  •0<arnd>'  whara  initially, 
arnd  *  0. 


Thia  block  o£  coda  ia  axacutad 
onca.  Whan  tha  non i tor  atarta 
axacuting  by  calling  contingency 
taak  paira,thia  block  will 
alwaya  ba  ^unpad. 


I 


->0apvar:  nop 

a 

(Bonitor  coda) 

a 

3P  Capyar 
- >  -  111:  jp  Oapvar  <-- 


Tha  global  variable,  initlk,  haa 
bean  incraaantad  ao  initlk  «  1. 


_  Monitor  aaction. 


Thia  inatruction  conaa  £roB 
'a. and'  and  narka  and  o£  blocka 
o£  coda  to  ba  axacutad  onca. 


Figure  9  Raalization  o£  Blocka  of 
Coda  to  ba  Executed  Onca  Only 


••rv«  «a  a  countar  for  tha  loop  structura  produced  by 


'a.waltleaat' .  Alao,  care  auat  be  taken  when  picking  the 
valuea  to  be  inaerted  in  the  label  argueenta  ao  that  they 
are  different  from  label  naaea  uaed  elaewhere  in  tha 
priaitive  liat. 

10.  Chanoea  to  Saith^a  Priaitivea 

Three  of  the  priaitivea  retained  froa  Salth'a  Z-dO 
Realization  Voluae  were  reviaed  algnif icantly .  Many  of  the 
othera  required  ainor  correctiona*  aoat  regarding  incorrect 
byte  counta.  In  a  few  caaea,  coaaent  linea  were  added  to 
clarify  certain  pointa  regarding  the  atructure  of  a 
particular  priaitive.  Generally,  Saith  waa  thorough  and 
the  logic  of  hia  Z-80  aaaeably  code  routinea  waa  flawleaa. 

The  priaitive,  'a.aain',  appeara  in  the  aecond  line 
of  every  priaitive  Hat  generated  by  the  Tranalator.  Tha 
'a.aain'  realization  containa  the  code  that  appeara  at  the 
top  of  every  aoftware  output  froa  CSDE.  Saith  included 
atateaenta  that  would  allow  a  deaigner  to  apecify  a  debug 
aode.  A  controller  prograa  produced  froa  CSDE  in  debug  node 
could  be  run  and  teated  on  a  C/PIf  baaed  aicrocoaputer . 
Theae  referencea  to  debug  aode  were  eliainated  aince,  with 
the  uae  of  the  CSDE  workatation,  teatlng  on  the  Pro- log  ia 
aore  effective.  Another  capability  of  'a.aain'  waa  retained 
to  generate  blocka  of  code  within  a  controller  prograa  that 
are  only  executed  once  before  the  aonitor  loop  la  entered. 
Saith  referred  to  thla  aa  hardware  initlalizationa.  Although 


'e.waitlSMt'  raallzation  raqulrad  aavaral  additional 
arguaanta  to  ba  praaant  in  tha  tit  la  lina  than  thoaa 
ganaratad  by  tha  Tranalator.  Tha  diffarancaa  ara  diaplayad 
in  Figura  8  aa  wall  aa  propoaad  CSDL  ayntax  changaa.  Nota 
that  aditing  tha  priaitlva  liat  raquiraa  aora  than  juat 
changing  tha  'a.waltlaaat'  titla  lina.  An  additional 
variabla  aay  naad  to  ba  addad  with  an  'a.var'  priaitlva  to 

Currant  CSDL  Syntax: 

"WAIT  SABLE^l:  SOOMS" 

Propoaad  CSDL  Syntax: 

“WAIT  SABLE^l:  SOOMS:  1500MS" 

^  A 

^  •  : _  aax  tiaa 

intagar  raault _ !  pariod 

froa  thia 
axpraaaion 

Saapla  Output  Froa  Tranalator  (unaditad> 

P  47a.waitlaaat  (0TO1,8:SOO) 

Raqulrad  Foraat  for  Input  to  CSDE  Prograa 
(with  arguaant  axplanetiona) 

1  2  3  4  5  6 

P  47a.waitlaaat  (0702, 0TO1, COS, 006, 500, 1500:8, 8> 

1  -  variabla  to  ba  uaad  for  loop  countar 

2  -  variabla  containing  Intagar  raault 

3  -  top  labal 

4  -  bottoa  labal 

5  -  tiaa  pariod 

6  -  aax  allowad  tiaa  pariod 


Figura  8  Changaa  Raqulrad  for  'S.waitlaaat 


Thus*  thsrs  would  bo  no  roaaon  to  incorporato  a  polling 


rout in# *  knowing  tha  raault  could  navar  changa.  Tha  CSDL 
syntax  and  tha  Translator  should  ba  corractad  to  allow 
additional  prlaltlvaa  within  tha  boolaan  wait  routlna  such 
as  ' a . aanaacond ' .  It  would  than  ba  poaalbla  for  tha  raault 
of  tha  final  axpraaalon  to  changa  during  tha  spaclflad  tlaa 
parlod.  Tha  boolaan  wait  raallxatlona  hava  baan  wrlttan 
accordingly. 

9.  StWaitiWt 

This  prlaltlva  ^  narataa  a  software  delay  that  la 
computed  by  multiplying  tha  Integer  raault  of  an  arithmetic 
expression  by  a  apaclflad  tlaa  parlod.  Tha  Integer  raault 
la  passed  to  'a. wait least'  from  primitives  that  appear  abova 
It.  Tha  spaclflad  time  parlod  appears  In  'a.waltlaaat' . 
Tha  syntax  for  It  la  <WAIT>::>  WAIT  <EXPRESSION>  ;  <PERIOD> . 
An  example  can  ba  found  In  Appendix  B  In  tha  task*  HSGDSPLY. 

Whan  coda  from  this  prlaltlva  la  Incorporated  Into  a 
task  tha  execution  time  of  that  task  bacomaa  variable  based 
on  Internally  computed  results  whan  tha  controller  program 
la  running.  Since  these  changes  In  execution  time  occur 
completely  external  to  CSDE*  there  Is  no  way  to  achieve 
accurate  timing  statistics  when  the  program  Is  generated 
unless  the  designer  can  specify  some  maximum  delay  In  tha 
CSDL  problem.  Additionally,  since  the  Integer  result  passed 
to  's.waltleast'  la  passed  via  a  variable  and  not  an 


absolute  number* 


the  loop  structure  used 


in 


the 


laplM«ntation  can  ba  found  in  tha  coanant  llnaa  for 
'a.aatiaa'  and  'h. clock'  In  Appandlx  E. 

Tha  CSDL  ayntax  currantly  cal la  for  tha  tiaa  pariod 
to  appaar  in  'a.boolwalt'  and  not  In  'a.atboolwait' .  Thia 
ia  wrong  bacauaa  CSOE  naada  tha  tiaa  pariod  at  tha  baginning 
of  tha  boolaan  wait  conatruct  to  inaura  accurata  tiaing 
atatiatica  ara  kapt.  Thia  ia  accoapliahad  by  uaa  of  an 
attributa  lina  in  'a.atboolwait'  aa  ia  aiailarly  dona  in  tha 
priaitiva,  'a.f ixadwait' .  Editing  of  tha  priaitiva  liat 
output  froa  tha  Translator  ia  raquirad  aa  shown  in  Figura  7. 

Saapla  Output  Froa  tha  Translator  (unaditad) 

P  36a.atboolwait(903: ) 

P  37a. aq  (CTOl ,LIGHT,«C06:8,8.6> 

p  38a.boolwait  <9T01* 803, •04:8, 1700)  <--  1700  ia  pariod 

in  MS 

Raquirad  Foraat  for  Input  to  CSDE  Prograa 

P  36a. atboolwait (003,1700: >  <•>>  tiaa  pariod 

P  37a. aq  <0TO1,LIGHT,0CO6:8,8,8>  hara 

P  38a.boolwait  (0TO1, 003, 004:8) 

Figura  7  Changaa  Raquirad  For  Boolaan  Wait  Priaitivas 

A  logical  arror  axita  in  CSDL  ralating  to  tha 
axpraasion  priaitivaa  that  nay  appaar  batwaan  'a.atboolwait' 
and  'a.boolwait' .  Currantly,  only  ona  axpraasion  aay  appaar 
which  aaana  that  one*  tha  boolaan  wait  routina  ia  antarad 
thara  ia  no  way  that  tha  raault  of  tha  axpraaaion  could 
changa  whila  waiting  for  tha  apacifiad  pariod  to  axpira. 


45 


•xpr«Mion  !•  eh«ck«d  until  aith^r  tha  raault  ia  trua  or  tha 
apaclflad  tlaa  has  axplrad  aftar  which  tha  rast  of  tha  task 
is  axacutad.  An  axaapla  can  ba  found  in  Appandlx  B  in  tha 
task,  'MSGDSPLY'.  Tha  syntax  for  's.stboolwalt'  is  <WAZT 
HEAD>  WAIT  UNTIL  and  for  'a.boolwait"  is  <WAIT  UNTIL> 

<WAIT_HEAD>  <EXPRESSION>  :  <PERIOD> . 

Tha  logic  of  tha  raalization  is  fairly  siapla.  Tha 
priaitiva,  's.atboolwait' »  sats  tha  tiaa  to  chack  tha 
axprasaion  by  calling  anothar  prisitlva,  's.satisa'.  This 
is  analogous  to  satting  a  tlsar,  in  this  casa  tha  countar 
tiaar  chip  <ctc)  on  tha  Pro-log  cpu  board.  Than  it 
astabliahas  a  labal  for  tha  top  of  a  aini  polling  routina. 
Tha  axprasaion  prlaitiva  would  appaar  batwaan  's.stboolwai  ' 
and  's.boolwalt' .  Finally,  's.boolwait'  coaplatas  tha 
polling  loop  by  first  chacking  tha  rasult  of  tha  axprasaion 
prlaitiva.  If  tha  rasult  is  trua  tha  routina  is  axitad.  If 
tha  rasult  is  falsa,  tha  currant  tiaa  is  raad  froa  tha  etc. 
If  tha  tiaa  is  axpirad  tha  routina  is  axitad.  Otharwisa  a 
3uap  is  axacutad  to  tha  top  of  tha  loop. 

Tha  prlaitiva,  'a.satiaa',  is  not  ganaratad  by  tha 
Translator.  It  was  writtan  as  a  saparata  prlaitiva  to 
aalntain  tha  aodularity  of  tha  Raalization  Voluaa  and  to 
allow  tasting  of  tha  CSDE  'call'  instruction  in  tha 
prlaitiva,  's.stboolwait' .  It  sats  up  tha  etc  as  a 
down  countar  which  dacraaants  at  1  as  intarvals.  Oatails  of 


Th«M  prlmitiVM  ar«  producad  whan  a  tiaad  block  la 


apaclfiad.  A  tiaad  block  ia  a  naatad  aat  of  actiona  within 
a  taak  or  function#  with  ita  own  timing  critaria.  Thia 
timing  critaria  ia  in  addition  to  any  critaria  apacifiad  for 
tha  parant  taak  or  function  in  tha  application  timing  tabla. 
An  axampla  can  ba  found  in  Appandix  B  within  tha  function 
'TPOLL'.  Tha  ayntax  for  a. in  ia  <TIHED_BLOCK_HEAD>  IN 
<PERZOD>  and  for  a.ni  ia  <TIHED  BLOCK>::>  <TINED_BLOCX_HEAD> 
DO  <STNT  GP>  END  IN. 

Thaaa  primitivaa  ara  in  tha  mama  format  aa  thay 
originally  appaarad  in  Roam' a  BOBO  Raalization  Voluma.  Thay 
wara  addad  to  tha  Z-BO  Voluma  for  purpoaaa  of  complatanaaa 
only  and  cannot  ba  uaad  in  thair  praaant  form.  Thia  ia 
bacauaa  tha  machaniam  by  which  tha  CSDE  program  would 
implamant  a  naatad  timing  raquiramant  ia  not  functional. 
No  affort  waa  axpandad  to  corract  thia  problam  bacauaa  it 
waa  raaaonad  that  if  a  daaignar  had  an  inclination  to 
apacify  a  tiaad  block  ha  could  juat  aa  aaaily  taka  tha 
actiona  in  quaation  and  put  than  in  a  aaparata  taak  or 
function. 

B.  S.Stboolwait  and  a.boolwait 

Thaaa  primitivaa  ara  ganaratad  whan  a  boolaan  wait 
conatruct  ia  apacifiad.  Thia  conatruct  would  ba  apacifiad 
by  a  daaignar  whan  ha  wantad  to  chock  tha  raaulta  of  an 
arithmatic  axpraaaion  for  a  fixod  tima  pariod.  Tha 


•x«cut«d 


for  ovory  ropotition  of  tho  loop.  For  corroct 
tilling  otntistics  tho  oxocution  tinoo  for  both  tho 
condition  chocking  prinitivoo  boforo  'o.whilocon'  and  tho 
action  prinitivoo  aftor  'a.whilocon'  bo  nuat  nultipliod  by 
BOX  loop  count.  Thia  roquiroa  that  tho  nax  loop  count  valuo 
appoar  in  'a.whiloatart' .  Tho  prinitivo  roalizationa  havo 
boon  writton  accordingly.  Editing  of  tho  prinitivo  liat 
output  fron  tho  Tranalator  ia  roquirod  whonovor  tho  whilo- 
do-loop  prinitivoo  aro  gonoratod.  Exanploa  of  tho  changoa 
roquirod  aro  ahown  in  Figuro  6. 

Sanplo  Output  Fron  Tranalator  (unaditod) 

P  31a.whiloatart<a03:> 

a 

(condition  chocking  prinitivoo) 

a 

P  33a.whilocon  <0TOl»gO4:4>  < -  *4'  ia  nax  loop  count. 

.  Prociaion  of  OTOl  ia 

(action  prinitivoo)  niaaing. 

a 

P  38a.whond  (803,004:) 

Roquirod  Fornat  for  Input  to  CSDE  Progran 
P  31a. whiloatart (003,4: )  < - Nax  loop  count  horo. 

a 

(condition  chocking  prinitivoo) 

a 

P  33a.whilocon  (0TO1, 004:6)  < - Prociaion  of  0TO1 

.  addod . 

(action  priaitlvoa) 

a 

P  38a.whond  (003,004:) 

Figuro  6  Changoa  Roquirod  For  'a.whiloatart' 
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avallabl*  within  tha  priaitiva.  Conaaquantly ,  tha  prlnitiva 
raalization  waa  conatructad  to  accapt  tha  following  format: 

а. forcona  (COUNT, 0CO2, 9004, 003, 004, 120:8,8,8) . 

Tha  max  loop  count  valua  alao  appaara  in  tha  'a.forand' 
priaitiva  aa  ganaratad  by  tha  Tranalator.  It  ia  not 
raqulrad  for  propar  conatruction  of  a  for- loop  and  la 
ignorad.  Manual  aditing  of  tha  priaitiva  liat  output  fila 
from  tha  Tranalator  ia  raqulrad  whanavar  tha  for- loop 
priaitivaa  appaar.  Otharwiaa  a  fatal  arror  will  raault  upon 
running  tha  CSDE  program. 

б.  S.whilaatart 

Thia  priaitiva  ia  uaad  in  conjunction  with  tha 
priaitivaa,  'a.whllacon'  and  'a.whand'  to  conatruct  a  whila- 
do-loop.  Ita  functlona  ara  to  aatabliah  a  labal  for  tha 
baginning  of  a  whila-do-loop  and  aanipulata  tha  max  loop 
count  uaing  tha  global  variabla,  'rapa'.  Thia  ia  aiallar  to 
tha  aathod  uaad  in  'a.forcona'.  Tha  CSDL  ayntax  ia  '<WHILE> 
::>  WHILE'.  Again,  thara  ia  a  problaa  aa  to  whara  tha  max 
loop  count  ia  plaead. 

Tha  CSDL  ayntax  currantly  cal la  for  aax  loop  count 
to  appaar  in  tha  'a.whilacon'  priaitiva  and  not  in 
'a.whilaatart' .  Thia  la  wrong  bacauaa  tha  condition  to  ba 
chackad  to  dataralna  if  tha  whila-do-loop  ahould  ba 
continuad  appaara  aa  othar  priaitivaa  batwaan  'a.whilaatart' 
and  'a.whilacon'.  Thua,  thaaa  priaitivaa,  aa  wall  aa  tha 


priaitivaa  appaaring  batwaan  'a.whilacon'  and  'a.whand'.  • ra 


I 


i»  th«  factor  by  which  tha  axacution  tlaa  of  aach  prlaltlva 
la  aultlpliad  prior  to  baing  accuaulatad  by  tha  timing 
analyzar.  It  ia  normally  mat  aqual  to  1  but  in  tha  caaa  of 
a  loop  it  ia  aat  aqual  to  tha  valua  of  max  loop  count 
apacifiad  by  tha  daaignar.  Onca  tha  'a.forand'  primitiva  ia 
ancountarad*  tha  valua  of  'rapa'  ia  raaat  to  tha  valua  it 
had  upon  antaring  tha  for-loop.  Pravioua  valuaa  of  'rmpm' 
ara  aavad  and  racovarad  through  tha  uaa  of  a  atack  inaida 
tha  CSDE  program.  Thia  atack  la  only  uaad  for  tha  global 
variabla  'rapa'  and  manipulatad  with  tha  atatamanta*  'calc 
puah  rapa'  or  'calc  pop  rapa' .  Thia  atack  arrangamant 
allowa  tha  conatructlon  of  naatad  loopa. 

Tha  format  of  tha  raalization  titla  lina  ia 
alightly  diffarant  for  tha  primitiva  format  ganaratad  by  tha 
Tranalator  bacauaa  of  an  arror  ralatad  to  tha  poaitioning  of 
tha  valua  for  max  loop  count.  Currantly  tha  Tranalator 
output  appaara  aa  followa: 

a.forcona  (COUNT, 9002, 0004,003,804:8. 8. 8, 120> . 

Tha  crltaria  aaction  of  tha  titla  lina  (to  tha  right  of  tha 
colon)  ahould  contain  only  valuaa  corraaponding  to  tha 
varlablaa  in  tha  argumant  aaction  (to  tha  laft  of  tha 
colon).  In  thia  caaa  thara  ara  3  varlablaa  and  2  labala  in 
tha  argumant  aaction  and  aa  auch  thara  ahould  only  ba  3 


valuaa  in 

tha 

crltaria  aaction. 

Tha 

valua. 

120, 

ia 

tha 

apacifiad 

max 

loop 

count  and  ahould 

ba 

in 

tha 

argumant 

aaction  inataad  of 

tha  crltaria 

aaction 

in 

ordar 

to 

ba 
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Both  of  thoso  prioitivoo  porfor*  logical  coaparlaons 
botwoon  two  oxproMion*  in  tho  saao  aannor  «•  's.or'  or 
'•.and'.  Tha  Inputa  to  thaa  ara  tha  boolaan  raaulta  of  2 
•xpraaalona,  trua  <ff  hax>  or  falaa  (00  hax> .  Tha  output  la 
a  boolaan  raault  according  to  tha  apaciflod  truth  tabla 
CRof.  16:  p.  811.  Truth  tablaa  for  both  prlaltlvoa  can  bo 
found  In  Appandlx  E  In  tha  coaaant  llnaa  for  aach  prlaitivo. 
Tha  CSDL  ayntax  for  'a.aquivalanc'  la  ' <EXPRESSION> 
<EXPRESSION>  <EXP_2>'  and  for  'a. lapllcata'  la  '<EXP_2> 

<EXP_2>  «>  <EXP_3>'. 

S.  S.forcona 

Thla  prlaltiva  aarka  tha  top  of  a  for-loop  and  waa 
alraady  Includad  In  Saith'a  Raallzatlon  Voluaa  undar  tha 
prlaltiva  naaa  'a.foratart' .  Stataaanta  hava  baan  addad  to 
proparly  account  for  changaa  In  axacution  tiaa  that  arlaa 
dapandlng  on  how  aany  tiaaa  a  for-loop  la  axacutad.  Alao, 
tha  arrangaaant  of  arguaanta  within  tha  tit la  llna  la 
•lightly  dlffarant  froa  tha  foraat  output  froa  tha 
Tranalator  bacauaa  of  tha  rulaa  by  which  prlaltiva 
raallzatlona  auat  ba  conatructad.  Tha  CSDL  ayntax  la  '<F0R 
HEAD>  FOR  alD*  FROM  <EXPRESSZON>  TO  <EXPRESSION>  :  <MAX 

LOOP  C0UNT>'. 

To  accurataly  kaap  track  of  total  axacution  tlaa 
during  loop  oparatlona  Roaa  Incorporatad  tha  global 


varlabla,  'rapa'.  In  tha  CSDE  prograa.  Tha  valua  of  'rapa' 


Translator  arror  fila.  Thaaa  filaa  wara  dlacuaaad  in 
Chaptar  2.  It  waa  Important  to  viaw  tha  Translator  arror 
flla  bafora  inputting  tha  problan  to  CSDE  bacauaa  thia  was 
tha  only  way  to  know  if  tha  CSDL  program  containad  any 
syntax  arrors.  Any  manual  changas  to  tha  priaitiva  list 
wara  mada  using  tha  EDT  aditor  availabla  on  tha  VAX.  Naxt, 
tha  CSDE  program,  currantly  namad  CLIB,  was  run  to  produca  a 
softwara  listing,  a  hardwara  listing  and  a  dabug  fila. 
Diffarant  lavals  of  debugging  may  ba  aalactad  from  tha 
initial  GLIB  menu.  Tha  softwara  listing  was  than  downloaded 
to  tha  Z-100  microcomputar ,  part  of  tha  CSDE  workstation. 
On  the  Z-100,  it  was  assamblad  and  linked  to  produca  a  hex 
file.  Tha  hex  fila  was  downloaded  from  tha  Z-100  to  tha 
Pro-Log  where  it  was  finally  executed. 

As  mentioned  above,  diffarant  lavals  of  debugging  may  ba 
aelectad  when  running  the  CSDE  program.  Whan  level  0  is 
selected  only  the  actual  error  message  lines  will  appear  in 
the  debug  file.  When  level  3  is  sa  .cted  an  axtansiva 
chronological  record  of  CSDE  program  execution  is  written  to 
the  debug  file.  In  moat  cases  it  was  easiest  to  select 
level  0  and  if  errors  developed,  rerun  tha  problem  with  a 
more  detailed  debug  level  selected.  Another  point  is  that 
^ust  bacauaa  tha  CSDE  program  flags  arrors  does  not  mean 
that  an  unsatisfactory  realization  has  been  produced.  In 
some  cases,  such  as  with  's.f ixedwait' ,  only  non  fatal 
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inforaativa  arrors  ara  ganaratad.  Thia  waa  aantionad  in 
aaction  III.C.2. 

An  actual  taat  prograa  and  all  ralatad  filaa  ara 
containad  in  Appandix  F.  Thla  CSDL  problaa  was  writtan  to 
taat  tha  prlnltlvaa  aasociatad  with  a  whlla-do  loop. 
Rafarring  to  tha  problaa,  'FUNCTION  EACHl'  la  a  contingancy 
which  aanaaa  an  input  valua#  atoraa  it  in  tha  variabla, 
'ARGl'f  and  aats  tha  boolaan  variabla,  'EACHl'*  aqual  to  -1 
if  'ARGl'  ia  laaa  than  or  aqual  to  2.  Tha  boolaan  variabla 
is  sat  aqual  to  -1  bacauaa  -1  dacinal  is  rapraaantad  by  FF 
haxadaciaal  in  twos  coaplanant  fora.  A  boolaan  trua  valua 
ia  dafinad  as  FF  hax.  Tha  nat  raault  ia  that  if  'ARGl'  is 
laaa  than  or  aqual  to  2  than  tha  contingancy  is  trua.  Tha 
'CONTINGENCY  LIST'  spaclfias  that  if  'EACHl'  ia  trua  than 
'TASK  ONLITA'  must  ba  axacutad.  Both  tha  contingancy  and 
task  Bust  ba  coaplatad  within  1600  nllliaaconds  Including 
any  othar  blocks  of  coda  that  ara  axacutad  during  tha 
ranaining  portion  of  tha  currant  monitor  cycla. 

Tha  whila~do  loop  compriaas  tha  bulk  of  'TASK  ONLITA'. 
Tha  nat  raault  of  tha  whlla-do  loop  la  that  tha  valuaa  1»  3, 
5,  and  7  will  ba  output  at  2S0  ms  intarvals  and  can  ba 
vlawad  in  binary  form  on  tha  8  lads  of  tha  Pro- log 
kayboard/diaplay  card.  This  display  will  only  occur  if  tha 
contingancy  is  trua,  i.a.  both  kayboard/diaplay  card  rockar 
switchaa  ara  off  or  only  tha  right  switch  is  on. 
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Th«  ••cond  contingancy  task  pair,  'EACH5'  and  'OFFLT', 
cauaaa  a  500  na  dalay  with  all  lada  off  for  any  of  tha  four 
poaaibla  input  valuaa.  Saa  tha  diacuaaion  of  ' a . aanaacond ' 
in  aaction  III.C.l.  for  aora  information  on  tha  four 
poaaibla  input  valuaa. 

Following  tha  CSDL  problaa  ara  tha  thraa  Tranalator 
output  liatinga  uaad  by  tha  CSDE  program.  Thay  ara  tha 
primitiva  liat,  application  timing  film  and  aymbol  tabla. 
Tha  primitiva  liat  aa  ahown  in  Appandix  F,  waa  modifiad  from 
tha  original  Tranalator  output  to  poaition  tha  valua  for  max 
loop  count  aa  tha  aacond  argumant  in  tha  primitiva 
'a.whilaatart' .  Saa  Figura  6  in  aaction  III.C.6  for  an 
illuatration  of  thia  changa. 

Finally,  tha  aoftwara,  hardwara  and  dabug  liatinga  ara 
diaplayad  axactly  aa  produead  from  tha  CSOE  program.  Tha 
aoftwara  liating  ia  raady  to  ba  aaaamblad  and  tha  dabug 
liating  waa  ganaratad  in  dabug  laval  0.  Tha  arrora 
containad  tharain  ara  for  information  only  and  ralata  to  tha 
miaaing  colona  in  tha  'a.f ixadwait'  primitivaa. 

B.  TRANSLATOR  ERRORS 

During  tha  couraa  of  primitiva  taating,  aoma  arrora  wara 
diacovarad  in  tha  format  of  primitivaa  ganaratad  by  tha 
Tranalator.  Othar  Tranalator  arrora  ralata  to  tha  mannar  in 


which  it  handlaa  numbara  and  datarainaa  tha  praciaion  of 


Intarnally  g«n«rat«d  var labia* •  All  Translator  srrors  ars 
auaaarizad  in  Appandix  G. 

Host  format  arrors  ralata  to  tha  placasant  of  valuas  for 
loop  counts  or  tins  within  tha  prisitiva  titla  linas.  Thasa 
hava  baan  docusantad  in  Chaptar  III.C.  and  apply  to  tha 
following  prialtivas:  's.forcons',  's.whilastart' , 
's.whilacon" »  'a.stboolwait' ,  's.boolwait' ,  and 
's.waitlaaat' .  Tha  prisitiva  raalization  for  's.waitlaast' 
also  contains  many  sora  argusants  than  in  tha  Translator 
varsion  and  nodification  to  its  syntax  in  CSDL  is  also 
raquirad.  This  is  datailad  in  saction  IZ1.C.9.  A  final 
format  arror  is  that  tha  prisitiva,  's.f Ixadwait' ,  is 
ganaratad  without  tha  raquirad  colon  aftar  tha  valua  for 
tima.  Tha  functional  mappar  modula  of  tha  CSDE  program  has 
baan  mod if lad  to  accommodata  this  arror.  Whan  ancountarad 
by  tha  CSDE  program,  arror  massagas  ara  ganaratad  and  than 
tha  raquirad  colon  is  insartad  in  tha  corract  location.  All 
arrors  axcapt  for  's.f ixadwait'  raquira  manual  corract ion  by 
aditing  tha  prisitiva  list  prior  to  running  tha  CSDE 
program . 

Although  CSDL  syntax  rulas  allow  tima  units  as  small  as 
nanosaconds,  tha  Translator  corractly  ganaratas  only  tima 
valuas  accurata  to  tha  naxt  lowast  millisacond.  For 
axampla,  if  a  CSDL  problam  containad  tha  statamant,  'WAIT 
600  US',  tha  Translator  would  ganarata  tha  prisitiva, 
's.fixadwait  (0> ' .  All  tima  valuas  ganaratad  by  tha 


Translator  ara  In  allllaaconda  and  any  prlaltiva 
raallzatlona  that  taka  input  valuaa  of  tiaa  must  ba  wrlttan 
accordingly.  Mllllaaconds  ara  axcallant  tlaa  units  whan 
long  dalaya  ara  raquirad,  aapacially  for  daaonstration 
programs  that  utlliza  tha  lads  on  tha  Pro- log 
kayboard/diaplay  board.  Howavar,  for  aora  flaxibillty  in 
posaibla  controllar  daaigna*  tha  shortar  tiaa  units  should 
ba  aval  labia  for  uaa.  This  la  bacauaa  aoaa  applications, 
for  axaapla  a  jat  angina  atart  controllar,  night  raquira 
aora  atringant  raaponaa  tiaaa. 

Thara  ara  two  othar  problaaa  ralating  to  tha 
Translator's  handling  of  nuabara  in  ganaral.  Ona  is  that  it 
only  racognizaa  Intagars.  For  axaapla,  if  a  CSDL  problaa 
sagaant  was  wrlttan  as  'C0UNT:*C0UNT«10.6' ,  tha  nuabar, 
10.6,  would  ba  paaaad  to  tha  priaitiva  Hat  as  siaply  10. 
Tha  aacond  problaa  Involvas  tha  crltaria  usad  to  craata  16 
bit  constants  Inataad  of  6  bit  constants.  For  axaapla,  if  a 
CSDL  problaa  sagaant  was  wrlttan  as  'COUNT: *128' ,  tha 
priaitiva,  'a. cons  <0COl,128:d>'  would  appaar  in  tha 
priaitiva  Hat.  If  tha  valua  was  129  inataad  of  128,  tha 
priaitiva,  'a. cons  (0CO1,129:16>'  would  appaar.  Thia  is 
wrong  bacauaa  tha  largast  poaitiva  twos  coaplanant  nuabar 
that  can  ba  apacifiad  in  an  8  bit  word  ia  127.  Tharafora 
tha  daciaion  point  for  spacifying  8  bit  or  16  bit  constants 
should  ba  batwaan  127  and  128,  not  128  and  129. 
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On*  oth*r  mrroT  relating  to  tha  pracislon  of  variablaa 
occur*  «fhan  daallng  with  prlaltlvaa  that  uaa  boolaan 
variablaa.  For  axanpla«  tha  prlnltlva,  'a.aq',  haa  thraa 
arguaanta  and  conparaa  tha  valuaa  of  tha  aacond  and  third 
arguaanta  for  aquality.  Upon  coaplation  of  tha  aquality 
taat,  tha  flrat  arguaant  ia  aat  aqual  to  FF  hax  for  trua  or 
00  hax  for  falaa.  Sine*  tha  firat  arguaant  ia  alwaya  uaad 
aa  a  boolaan  variabla*  an  8  bit  praclaion  will  alwaya  ba 
aufficiant  avan  if  tha  othar  arguaanta  call  for  16  bit 
praciaion.  All  ralational  prialtiva  raallzationa  war* 
writtan  aaauaing  tha  boolaan  arguaant  will  alwaya  hava  an  8 
bit  praciaion.  Unfortunataly.  tha  Tranalator  ganarataa  a  16 
bit  boolaan  arguaant  whanavar  aithar  of  tha  othar  arguaanta 

Exaapla  Ralational  Prialtiva  Cunaditad> 

P  30a. aq  (T«11.ARG1 ^CONST: 16, 16, 16) 

A 

• _  16  bit  varlabla  ganaratad 

by  Tranalator  to  paaa 
boolaan  raault;  only  naada 
to  hava  8  bit  praciaion 

Raquirad  For aat  for  Input  to  CSDE  Prograa 
P  30a. aq  <T801,ARG1, CONST: 8, 16,16) 

Figura  10  Changaa  Raquirad  for  Ralational  Prlaltlvaa 

haa  a  16  bit  praciaion.  Thia  raaulta  in  critarla  chacK 


arrora  froa  tha  CSDE  prograa  whanavar  larga  nuabara 


requiring  16  bit  precision  artt  comparttd  within  a  ralational 
prlaltlva.  Prlaltlva  llata  containing  auch  arrora  auat  ba 
corractad  bafora  running  tha  CSOE  program.  An  axaapla  la 
contalnad  In  Flgura  10. 

Tha  final  Tranalator  arror  raqulrlng  corractlon  la  that 
If  varlablaa  ara  daclarad  aa  typa  DUPLEX,  any  aubaaquant  uaa 
of  thoaa  varlablaa  In  a  'SENSE  or  'ISSUE'  atataaant 
raaulta  in  ayntax  arror  naaaagaa.  Thia  la  wrong  bacauaa  tha 
whola  concapt  of  DUPLEX  typa  varlablaa  Involvaa  thalr  uaa 
for  althar  Input  or  output.  Thla  waa  dlacuaaad  in  aactlon 
IIl.C.l. 

C.  THE  CSDE  PROGRAM 

Aa  aantionad  in  Chaptar  I,  tha  CSDE  program  undarwant 
ravlalon  during  tha  couraa  of  raaaarch  for  thia  thaala. 
Moat  changaa  ara  tranaparant  to  tha  uaar  and  involvad 
atraaalinlng  tha  CSDE  program  aourca  coda  to  Improva 
afflclancy.  Additional  Improvamanta  ovar  tha  NEWCSDL 
varalon  uaad  by  Smith  and  Rllay  Includa  tha  addition  of  a 
uaar  friandly  manu  and  aliminatlon  of  tha  naad  for  tha 
Input  flla,  MONTER.DAT.  Thia  flla  contalnad  tha  prlmltivaa 
raqulrad  to  ganarata  tha  monitor  aactlon  of  a  controllar 
program.  Tha  monitor  prlmltivaa  wara  alraady  contalnad  In 
tha  Raallzatlon  Voluma  and  thua,  MONTER.DAT  waa  raally  not 


Th*  r«vis«d  CSDE  program*  GLIB*  was  axarciaad  fraquantly 
whlla  davaloplng  and  taatlng  naw  prialtiva  raalizatlona. 
Many  arrora  that  had  baan  introducad  during  Ita  raviaion 
wara  idantiflad  and  corractad  aa  taatlng  prograaaad.  Tha 
Inportanca  of  good  communication  batwaan  tha  uaar  (ma)  and 
aoftwara  malntananca  paraonnal  <Mr.  Lukaa)  waa  mada  vary 
claar.  Daaplta  dalaya  dua  to  arrora  In  GLIB*  taatlng  for 
thla  thaala  could  not  hava  baan  complatad  without  It.  Tha 
GSDE  workatatlon  alao  provad  Invaluabla  In  raduclng  taatlng 
tlaa  par  prlmltlva  comparad  to  tha  aathoda  uaad  by  Smith. 

Raallzatlon  taatlng  and  dabugglng  GLIB  uncovarad  an 
Important  Idloayncraay  of  GSOE.  Spaclf Ically *  tha  Input 
flla  containing  tha  Hat  of  global  varlablaa*  uaually  namad 
GLOBALS.DAT*  haa  a  atrlct  format.  Gartaln  poaltlona  within 
tha  globala  flla  ara  raaarvad  for  global  varlablaa  uaad 
Intarnally  by  GLIB.  If  a  naw  global  var labia  uaad  within  a 
prlmltlva  raallzatlon  la  accldantally  placad  In  ona  of  thaaa 
'hard  wlrad'  poaltlona  unpradlctabla  arrora  will  ba 
ganaratad.  Tha  currant  global  varlabla  flla  contalna  aoma 
global  varlablaa  that  ara  not  found  In  tha  Ravlaad  Z-80 
Raallzatlon  Voluma.  Thaaa  varlablaa  wara  addad  by  Smith 
baeauaa  thay  wara  uaad  In  aoma  of  hla  prlmltlva  raalizatlona 
from  tha  original  Z-80  Raallzatlon  Voluma.  Slnca  thaaa 
prlaltlvaa  hava  baan  dalatad  from  tha  Ravlaad  Z-80 
Raallzatlon  Voluma*  aoma  global  varlablaa  addad  by  Smith 
aarva  no  function  aa  far  aa  prlaltlvaa  ara  concarnad. 


However,  tomc^umm  of  tholr  position  in  GLOBALS.DAT  thoy  night 
•till  b«  us«d  intornally  by  GLIB.  Thus»  global  variablos 
not  found  in  tha  Raviaad  Raalization  Voluaa  hava  baan 
ratainad  to  inaura  that  GLIB  runa  corractly.  If  any  naw 
global  variablaa  ara  addad  in  tha  futura  thay  should  ba 
addad  at  tha  botton  of  tha  fila.  Also,  tha  nuabar  at  tha 
top  of  tha  flla»  Indicating  tha  total  nuabar  of  global 
variablaa,  should  ba  ad^uatad  accordingly.  Figura  11 
displays  tha  contanta  of  tha  currant  global  variabla  fila. 


ContMts  of 
Global  Variabla  Fila 


Applicabla  Notaa 


022 

arnd  0. 

1,2,3 

bdoa  S. 

2,3 

chipa  0. 

2,4 

clock  0. 

5 

initlkO. 

1,3,5 

rapa  1 . 

4,5,6 

natodaO . 

2,3 

natodpO. 

2,3,6 

ndtoaaO . 

2,3 

ndtoapO . 

2,3 

ninoutO. 

2,3 

nkay  0 . 

2.3 

nlad  -1. 

2,3 

nodgt  0. 

2,3 

noroa  0. 

2,3 

nrockrO . 

2.3 

raaptrO. 

3,5 

romptrO . 

3,5 

aertchO . 

3,5 

alot  0. 

3,5 

kaybrdO . 

3,5 

tmblekO. 

3,5 

Nota  Explanatlona 

1  Availabla  for  uaa  if  Initialization 
priaitivaa  ara  addad.  Saa  Figura  9. 

2  --  Not  uaad  in  Raviaad  Z-60  Raalization  Voluaa. 

3  --  Addad  by  Smith,  uaad  in  original  Z-80 

Raalization  Voluna. 

4  --  Uaad  intarnally  by  tha  CSDE  program,  GLIB. 

5  --  Uaad  in  Raviaad  Z-80  Raalization  Voluma. 

6  --  Known  'hard  wirad'  poaition  uaad  by  GLIB. 


Figura  11  Gontanta  of  Global  Variabla  Fila 
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V.  COMCLUSIOMS 

Th*  goals  for  this  thasla  hava  baan  accompli shad.  All 
but  a  faw  dlscrapanclaa  hava  baan  rasolvad  batwaan  tha 
Translator  and  tha  Z-80  Raallzatlon  Voluma.  Nunaroua  tast 
problana  hava  baan  run  through  tha  antlra  CSDE  ayatan,  from 
CSDL  problam  statamant  to  oparating  program  on  tha  Pro- log 
mlcroconputar .  Thaaa  taat  problana,  as  Implanantad  on  tha 
Pro- log,  can  ba  conaldarad  trua  control lar  raallzationa 
sinca  changaa  in  input  valuaa  raault  in  dlffarant  output 
valuaa. 

Mora  conplax  problams  should  ba  danonatratad  in  tha 
futura.  This  will  raqulra  tha  addition  of  nora  complax  I/O 
hardwara  with  accompanying  modification  to  tha  I/O  primltiva 
raallzationa.  If,  for  axampla,  Rilay'a  jat  angina 
control lar  wara  to  ba  danonatratad,  a  maana  would  also  ba 
naadad  of  simulating  tha  various  psramatara  to  ba  sanaad. 
An  array  of  potantionatara  connactad  to  analog  to  digital 
convartars  might  ba  utilizad  for  thia  purpoaa.  Similarly, 
outputs  from  tha  controllar  would  naad  to  ba  diaplayad 
diffarantly  than  tha  currant  nathod  using  lads.  Complax 
problams  might  raqulra  mora  namory  than  tha  currantly 
aval labia  16k  RAM. 


Tha  Translator  arrors  diacussad  in  chaptar  IV  should  bo 
corractad.  Thia  would  rasult  in  complata  compatibility 


b«tw««n  component  parts  of  CSDE  and  would  allninata  tha  naad 
for  nanual  nodification  of  intarnadiata  priaitiva  lists. 
Anothar  nodification  to  tha  Translator  night  ba  to  inprova 
tha  clarity  of  its  arror  nassagas  whan  CSDL  syntax  arrors 
ara  ancountarad.  Currant ly,  thasa  nassagas  ara  axtranaly 
difficult  to  understand  sines  thay  only  point  out  tha 
location  of  a  syntax  arror  within  a  CSDL  problan.  Until  a 
syntax  diractad  editor  or  language  nanual  is  davalopad  for 
CSDL,  tha  arror  detection  facility  of  tha  Translator  is  tha 
only  aid  available  for  writing  correct  CSDL  problans. 

This  thesis  research  was  prinarily  an  axarcisa  in 
software  naintananca.  Tha  problans  ancountarad  and  effort 
expanded  to  solve  those  problans  wars  invaluable  in 
danonstrating  why  software  naintananca  requires  such  large 
proportions  of  govarnnant  and  Industry  data  processing 
resources.  For  axanpla,  tha  concept  of  continuity  between 
davalopnant  personnel  bacana  quite  clear  as  many  quastiona 
arose  concerning  previous  researchers  work.  Had  personnel 
such  as  Carson,  Snlth,  and  Riley  bean  available  for 
consultation,  nuch  tine  probably  could  have  bean  saved. 
Tha  inportanca  of  good  connunication  between  users  and 
naintananca  personnel  was  proven  as  tha  revised  CSDE  progran 
was  successfully  debugged.  This  also  illustrated  tha 
difficulties  that  arise  whan  two  components  of  a  systam  that 
affect  each  other  undergo  maintenance  at  tha  sane  time. 
Errors  in  tha  revised  CSDE  program  caused  some  unanticipated 
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delays  In  tha  taating  of  naw  prlaitlva  raalizatlona. 
Finally*  good  docuaantatlon  la  mandatory  for  a  auccaaaful 
aoftwara  nalntananea  project. 


APPENDIX  A 


PRIMITIVES  AVAILABLE  FROM  TRANSLATOR 

This  appandix  containa  a  Hat  of  all  priaititlvaa  that 
can  ba  producad  by  Caraon'a  tranalator.  Tha  correapondlng 
production  nuabar  can  ba  uaad  to  find  tha  Backua-Naur  syntax 
■tructura  In  tha  Hating  of  tha  CSDL  language  in  Carson's 
thesis  CRaf  8:  pp.  47-541 .  A  brief  phrase  describing  each 
primitive  is  also  supplied. 

BPIBIIIVE  PROD  NUMBER  MEANING 


ADD 

23 

Addition 

SUB 

21 

Subtraction 

MULT 

23 

Multiply 

DIVIDE 

23 

Divide 

LT 

25 

Less  Than 

LE 

25 

Lass  Than  or  Equal  To 

EO 

25 

Equal  To 

GT 

25 

Greater  Than 

GE 

25 

Greater  Than  of  Equal  To 

NE 

25 

Not  Equal  To 

NOT* 

22 

Boolean  Not 

AND 

27 

Boolean  And 

OR 

29 

Boolean  Or 

IMPLICATE 

31 

Logical  Implication 

EQUIVALENC 

33 

Logical  Equivalence 

LOC 

37 

Location  in  IF  THEN 

JHPF 

36 

Jump  If  False 

WHEND 

39 

End  of  WHILE  Construct 

WHILECON 

40 

Test  Portion  of  WHILE  Construct 

•••  This  prlaitlvtt  ia  callad  by  's.atboolwait' . 

Tha  Translator  producaa  2  varaiona  of  'a.var'  and  both 
ara  coapatibla  with  tha  Raalizatlon  Voluaa. 

777  Thla  Translator  prlaltlva  was  not  ganaratad 
by  Caraon's  original  CSOL  taat  program  and 
subaaqant  attaapta  to  ganarata  It  provad 
unauccaasf ul . 
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s.nt 

<r«lt,argl,arg2:0,8,0,16,0,lfi:  ) 

s.iii 

(It  )« 

i.ni 

(::) 

S.l»t 

(nit,  «rgl:0, 8,0,81  ) 

•.not 

???? 

s.or 

(nlt,artl,arg2i0,8,0,8,0,8i  ) 

•.or 

(8T0i,»T01, 8708:8,8, 8) 

s.o«tputport(oiitni,tKh:0,8:  > 

•.out put port 

(NEMJ,TTL:8) 

s.|)roc 

(na  11  ) 

s.proc 

(KEYINMAIN:) 

•.MMKond  (iinaiiO,B:  ) 

•.smicond 

(KEYFL6:1) 

(clktiiiO, 38768:  )*** 

•.ftboolHiit 

(809: ) 

s.s«ib 

(nlt,argl,arg2t0,8,0,8,0,8i  ) 

•.sub 

(8T01,8(»l,8(Xe:8,8,8) 

•.Mb 

(nlt,argl,arg2:0,16,0,16,0,16i  ) 

•.tabaccpS 

(::  )* 

•.tabiMi 

(  ti  )* 

•.tafamt 

(fne,t4Sk  ::  )* 

S.VS' 

(naBtO,8i  ) 

s.var 

(KEYIN»IN:8,0)‘*** 

s.var 

(naai0,16i  ) 

•.var 

(8T01:8)**« 

•.Mitlaast  <iiidi,upr|top,bot,par,Hiii0,S,0,8i 

)  s.Mitltast 

(8701,8:500) 

s.Hhmd 

(top,botii  ) 

•.Nhind 

(817,818:) 

•.diilann 

(nlt,boti0,8i  ) 

•.Nhilfcon 

(8701,818:4) 

s.Mhilaftart(t«p,lpctii  ) 

•.HhilMtart 

(817:) 

• 

Thaaa  priaitivaa  ara  usad  by  tha  CSDE  systaa  to 
construct  tha  monitor  saction  of  tha  ganaratad 
control lar  program.  Although  thay  must  ba  preaant  in 
tha  Raalization  Voluma,  thay  ara  not  producad  by  tha 

Translator  bacausa  tha  monitor  atr stagy  is  not 
control lad  by  tha  dasignar  who  writaa  tha  CSDL 
problaa. 

••  Thaaa  priaitivaa  wara  addad  to  tha  Raalization  Voluaa 
for  coaplatanasa  but  ara  not  uaaabla  as  currantly 
inplaaantad. 


s.aquivaltnc(r«lt,argl,arg2:0,6,0,8,0,8:  ) 

■.aquivaltnc 

(8T01,IT01,fT08!8,B,8) 

•.exitproc 

<Mi  !)  ) 

■.axitproc 

(KEYIMHINi) 

s.fix«lMait 

(tiaiOflSTS:  ) 

■.fixadMait 

(10) 

hforcons 

( indx,  iHT,  upr,  slab,  flab,  val  rO,  8, 0, 8, 0, 8: ) 

SiforcoM 

(C0UMT,«(»1,K05, 811,8121 

s.for«id 

(indx,slab,tlab:0,8:  ) 

■.fortwt 

((miT,811,812i8,4) 

(rflt,aral,arg2:0,8,0,8,0,8:  ) 

■.gt 

(8T01,flC3,8COei8,a,8) 

i.9t 

(rtlt,argl,arg2i0,8,0,16,0,lfi;  ) 

s.lt 

(rilt,argl,arg2i0,8,0,8,0,8:  ) 

■.gt 

(«T01,(C4,8C02i8,B,B) 

•.gt 

(rflt,argl,arg2]0,8,0,16,0,16:  ) 

■.iaplicatt  (rflt,«rgl,arg2!0,8,0,a,0,ai  ) 

s. itplicatt 

(8T0l,tT01,r02iB,8,8> 

s.in 

<;i  )•* 

■•in 

(1800000) 

s. in/out port 

(KS6VDT,TTLiB) 

s.inp«tport  (iMHa,tKh!0,8i  ) 

■.input port 

(KEYFLB,TTLl8) 

S.iUUMIlt 

(o«tni)0,8i  ) 

■.issutvtnt 

(MBU18) 

<val,loc  :0,8:  ) 

■.jtpf 

(tT01,l01i8) 

■.It 

(rfU,argl,arg8:0,8,0,8,0,8:  ) 

s.lt 

(iT01,RC2,8(»2!8,8,8) 

S.I1 

(rslt,argl,arg2:0,8,0,16,0,16:  ) 

■.loc 

(Iw  II  ) 

S.I0C 

(•Oil) 

s.lt 

(rslt,argl,arg2i0,8,0,8,0,8:  ) 

■.It 

(8T01,  (Cl,  8002:8,8,8) 

s.lt 

(rslt,argl,arg2i0,8,0,16,0,16i  ) 

■.Min 

(  11  )* 

■.■onitor 

(  It  )* 

<rtlt,argl,arg2t0, 8, 0,8,0,81  ) 

S.Mlt 

(fT0l,(CMII,  8007:8, 8,8) 

■.wit 

(rslt,ar8l,ar82i0,16,0,8,0,8!  ) 

9.Mlt 

(rslt,ar|l,arg2i0, 16,0, 16,0,161  ) 

s.nt 

(rtlt,argl,«rg8i0,8,0,6,0,8i  ) 

■.nt 

(fT01,IC0,8002:B,8,8) 
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APPENDIX  D 


COMPARISON  OF  PRIMITIVES 


This  appsndlx  displays  a  comparison  of  tha  prinitivaa 
availabla  from  tha  Raviaad  Z-60  Raalization  Voluna  (Appandix 
E)  and  tha  prinitivaa  availabla  from  tha  Translator. 
Prinitivaa  from  tha  Raviaad  Voluna  ara  in  tha  aana  format  as 
thay  appaar  in  tha  indax  in  Appandix  E  axcapt  that  tha  savan 
numaric  valuas  following  tha  aacond  column  ara  not  ahown. 
Prinitivaa  from  tha  Translator  ara  in  tha  aana  format  as  thay 
appaar  in  tha  prinitlva  listing  that  is  ganaratad  by  tha 
Translator  whan  Carson's  CSDL  taat  program  (Appandx  C>  is  run 
through  it.  Diffarancaa  in  tha  arrangamant  of  argumanta 
batwaan  soma  Raalization  and  Translator  prinitivaa  ara  due 
errors  in  tha  Translator  (aummarizad  in  Appandix  C> .  Tha 
primitive,  'a. in/outport' ,  was  not  added  to  tha  Raalization 
Volume. 


HEVISED  Z-eO  WUIE 

CflASaPS  TMNSLATDR 

s.add 

(rsU,argl,arg2:0,8,0t8,0,A:  ) 

s.add 

(fT01,8T01,KEYOm:8,8,8) 

f.aM 

(rslt,argl,arg2t0, 16,0, 16|  0,16:  ) 

s.and 

(rslt,argl,argc!:0, 8,0, 6,0,8:  ) 

s.and 

(fr01,8T01,IT0ei8,8,8) 

«. assign 

(var,data:0,8,0,8:  ) 

s.  assign 

(KEYII«niN,IC01:l,8) 

s. assign 

(var,data:0,16,0,16:  ) 

s.boolMait 

(rslt,top,bot:0,8:  ) 

s. boolnait 

(roi,  109, 110:8, 10) 

s.call 

(naa::  ) 

s.caU 

(OLirn:) 

s.cons 

(naa,val,  :0,8:  ) 

S.C0W 

(IC01,1:A) 

s.conB 

(nia,val,  :0,16:  ) 

s.dividt 

(rslt,argl,arg2:0,6,0,8,0,8:  ) 

s.dividt 

(•T01,r01,KEYO««:8,8,8) 

s.dividi 

(rslt,argl,arg2:0, 16,0, 16,0, 16:  ) 

B.and 

(::  )* 

s.aq 

(rslt,argi,arg2:0,8,0,8,0,0:  ) 

s.aq 

(fT01,KEYFL6, 80)1:8, 1,8) 

s.aq 

(rslt,argl,arg2:0,8,0,16,0,16:  ) 

S. VARIABLE 

S. VARIABLE 

S. VARIABLE 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.LOC 

S.CONS 

S.CONS 

S.CONS 

S.CONS 

S.CONS 

S.CONS 

S.CONS 

S.CONS 


<NEXTAC:8,0) 
<TP0LL:l,0> 
(COUNT: 6,0) 
<001 :  > 

(002:) 

(003:  > 

(004:) 

(0OS:> 

<006: > 

(007  :> 

(006:) 

(013:> 

(014:) 

(015:> 

(016:) 

(021:) 

(0COi:i,6) 

(0CO2:O,8> 

(0CO3:2,8) 

(0CO4:3,8> 

(0COS:4,8> 

<0CO6:3O,8> 

<0CO7:S,8) 

(0CO8:lO,6> 
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P  139s. mult  (0TO1,ACNUM, 0008:6,8, 8) 

P  140«.dlvldtt  (0TO1,0TO1,KEYCHAR:8,8,8> 

P  141s. assign  <ACNUM,0TO1 :8,8) 

P  142s.forsnd  (COUNT, 019, 020:8,4) 

P  143s. sq  <0TO1,ACO,ACNUM:8,8,8> 

P  144s. <0TOl,02l:8> 

P  14Ss. assign  (AGO, 0002: 8, 8) 

P  146s. loc  (021 :> 

P  147s.sxltproc  (LOGOUT:) 

P  148't .gsnerstsd  for:  SYSTEM 

P  149s. cons  (0001,1:8) 

P  150s. cons  (0002,0:8) 

P  151s. cons  (0003,2:6) 

P  152s. cons  (0004,3:8) 

P  153s. cons  (0<X)S,4:8) 

P  154s. cons  (0006,30:8) 

P  155s. cons  (0007,5:8) 

P  156s. cons  (0008,10:8) 

P  157s. vsr  (0TOl:8) 

P  158s. vsr  (0TO2:8) 


1ADEFL.DAT 


A  1  :  :kbinphain  :hs:  loo,  o,  o,  o,  o 
A  2  :  :kbinpmain  :ms:  20,  0,  o,  o,  0 
A  3  :  :kbinphain  :ms:  300,  0,  0,  0,  0 


synfile.dat 


s.  inputport(keyflg,ttl:i) 

s.  INPUTP0RT(KEYCHAR,TTL:8) 
S.  INPUTP0RT(ACNUM,TTL:8) 

S . OUTPUTPORT ( MENU , TTL : 8 ) 

S . OUTPUTPORT ( POLL , TTL : 8 ) 

S . I N /OUTPORT ( MSG VDT , TTL : 8 ) 
S. VARIABLE  (KEYINMAIN:8,0) 
S. VARIABLE  (N1NTAC:8,0) 

S. VARIABLE  (NNSGDSPLY:8,0) 
S. VARIABLE  (AC0:8,0) 

S. VARIABLE  (ACl:8,0) 

S. VARIABLE  (AC2:8,0) 

S. VARIABLE  (AC3:8,0) 

S. VARIABLE  (AC4:8,0) 

S. VARIABLE  (INTPERI0D:8,0> 
S. VARIABLE  (NSG0:8,O) 

S. VARIABLE  (NSG1:8,0) 

S. VARIABLE  (MSG2:8,0) 
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A  .’•.“-.’-'.‘-'I*  ■ 

— . 

p 

( 8701 , HHSGDSPLY , 8C02 : 8 , 8 , 8 > 

p 

89s.boolw«lt 

(8701,809,810:8,10) 

p 

SOa.axltproc 

(NSGDSPLY:) 

p 

9 1 1 .  gm«r « t  ad 

for:  LOGIN 

p 

92s . proc 

(LOGIN:) 

p 

93s. assign 

(ACNUN, 8002:8,8) 

**"/••*. 

p 

94s. for cons 

(C0UN7, 8001, 8005, 811, 812:8, 8. 8, 4) 

p 

95s . ssnsscond 

(KEY0HAR:8) 

p 

96s . sub 

( 8701 , AONUM , 8007 : 8 , 8 , 8 ) 

p 

97a . assign 

(AONUN, 8701:8, 8) 

p 

98s. mult 

(8701 , AONUM , 8008 : 8, 8, 8 ) 

p 

99s . add 

( 870 1 , 8701 , KE YOH AR : 8 , 8 , 8 ) 

p 

100s. assign 

(AONUN, 8701:8, 8) 

p 

lOls.forand 

(00UN7,811,812:8,4) 

■■ 

p 

102s . aq 

( 8701 , NEX7 AO , 8002 : 8 , 8 , 8 ) 

p 

103a. sq 

(8702,A00,8002:8,8,8) 

p 

104s. and 

(8701,8701,8702:8,8,8) 

p 

lOSa.^npf 

(8701,813:8) 

p 

106s . assign 

(A00,A0NUM:8,8) 

p 

107a. loc 

(813:) 

p 

108s. aq 

(8701,MEX7A0,8001:8,8,8) 

p 

109s. aq 

(8702,801,8002:8,8,8) 

p 

110s. or 

(8701,8701,8702:8,8,8) 

p 

llla.^mpf 

(8701,814:8) 

p 

112s. assign 

(A01,A0NUM:8,8) 

p 

113s. loc 

(814:) 

p 

114s.aq 

(8701, NEX7A0, 8003:8,8, 8) 

p 

115s.aq 

(8702,802,8002:8,8,8) 

V- 

p 

1 16s . Impl Icata 

(8701,8701,8702:8,8,8) 

p 

117s. ]npf 

(8701,815:8) 

p 

118s. assign 

(A02,A0NUM:8,8) 

‘  •, 

p 

119s. loc 

(815:) 

p 

120a. aq 

(8701, NEX7A0, 8004:8, 8,8) 

p 

121s. aq 

(8702,803,8002:8,8,8) 

p 

122s . aqul valanc  <«T01 , 8701 , 8702 : 8 . 8, 8> 

p 

123s. 3mpf 

(8701,816:8) 

p 

124s. assign 

(A03,A0NUH:8,8) 

p 

125s. loc 

(816:) 

p 

126s.whllaatsrt(817: ) 

p 

127s. aq 

(8701, AONUN, 8001:8, 8, 8) 

p 

128s.whllacon 

(8701,818:4) 

p 

129s. assign 

(804,8005:8,8) 

p 

130s. add 

(8701, AONUN, 8001:8, 8, 8) 

p 

131s. assign 

(AONUN, 8701:8, 8) 

p 

132s . whand 

(817,818:) 

a..  ^ 

p 

133s. ax It proc 

(LOGIN:) 

p 

1 34t . ganar stad 

for:  L0G0U7  •••*•*•••« 

p 

135s. proc 

(L0G0U7:) 

p 

136s. assign 

(AONUN, 8002:8, 8) 

p 

137s.forcons 

(00UN7, 8001, 8005, 819, 820:8, 8, 8, 4) 

*.* 

p 

1 38s . aansacond 

(KEY0HAR:8) 
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P  37«.Mns«cond  (KEYCHARlS) 

P  38a. Aq  (•TOl,KEYCHAR,0COl:d,8,8) 

P  39a.}apf  (STOl, 002:8) 

P  AOa.aaaign  (HINTAC,0CO1 :8,8) 

P  41s. loe  <002: > 

P  42a.flxadwalt  (10) 

P  43s.axltproc  (KBINPMAIN:) 

P  44t.ganaratad  for:  MANUAL  •• 

P  4Sa.proc  (MANUAL:) 

P  46a. ns  (OTO1»ACO,0CO2:O*8,8) 

P  47a.3apf  (0TO1, 003:8) 

P  48a. assign  (POLL»0CO2:8,8) 

P  49a.lssuavant  (P0LL:8) 

P  SOa.loc  (003:) 

P  91s.lt  (0TO1,AC1, 0002:8.8. 8) 

P  52a.3Bpf  (0TO1. 004:8) 

P  33s. assign  (POLL. 0001 :8. 8) 

P  54s.lssusvsnt  (P0LL:8) 

P  59s. loe  (004:) 

P  96s. Is  (0TO1.AO2.OOO2:6.8.8) 

P  57s.3Bpf  (OTOl. 005:8) 

P  58s. assign  (POLL. 0003:8. 8) 

P  59s . iasusvsnt  <P0LL:8) 

P  60s. loe  (003:) 

P  61a. gs  <0TO1.AO3.0OO2:8.8.8) 

P  62s.jnpf  (0701.006:8) 

P  63s. assign  (POLL. 0004:8. 8) 

P  64s. iasusvsnt  (P0LL:8) 

P  69s. loe  (006:) 

P  66a. gt  (0701. 804.0002:8.8.8) 

P  67s.3npf  (0701.007:8) 

P  68a. assign  (POLL. 0005:8. 8) 

P  69a . iasusvsnt  (P0LL:8) 

P  70a. loe  (007:) 

P  71s.sxitproc  (MANUAL:) 

P  72t.gsnsratsd  for:  7P0LL  •• 

P  73s.proo  (7P0LL:) 

P  74s. sq  (07O1.1N7PERIOD.OOO6:8.8.8) 

P  73s.jBpf  (0701.008:8) 

P  76s. in  (1800000) 

P  77s. assign  (7P0LL. 0001:1.8) 

P  78s. ni  (::) 

P  79a. loe  (008:) 

P  80s.sxitproe  (7P0LL:) 

P  81t.gsnsrstsd  for:  MSGDSPLY  •• 

P  82s.proe  (MSGDSPLY:) 

P  83s.  esll  (KBZNPNAIN:) 

P  84s. assign  (MMSGDSPLY.0OO2:8.8) 

P  8Ss.sdd  (07O1.MMSGDSPLY.0OO1:8.8.8) 

P  86s.wsitlssst  (0701.8:500) 

P  87s.stboolwsit(009:) 


APPENDIX  C 


PRIHITIVE  LIST,  APPLICATION  TIMING  TABLE  AND  SYMBOL 
TABLE  PRODUCED  BY  TRANSLATOR  FROH  CSDL  TEST  PROGRAM 

This  sppsndlx  contains  ths  unsdltsd  output  fros  ths 
Transistor  that  rssulta  fros  ths  CSDL  tsst  program  In 
Appsndlx  B.  Ths  first  itsm  is  ths  prlsltivs  list  that  comas 
out  in  ths  fils  PRIMFILE.DAT,  ths  sscond  itsm  is  ths 
application  timing  tabls  that  comas  out  in  ths  fils 
IADEFL.DAT,  and  ths  last  itsm  is  ths  symbol  tabls  that  comas 
out  in  ths  fils.  SYMFILE.DAT. 


PRIMFILE.DAT 

P  2s. MAIN  <::> 

P  3d:FIRST  :  1:  l: 

P  4s.inputport  (KEYFLG.TTL:!) 

P  Ss.inputport  <KEYCHAR.TTL:8> 

P  Ss.inputport  < ACNUM,TTL:a> 

P  7a.outputport(NENU.TTL:8> 

P  8s.outputport<P0LL.TTL:8) 

P  9a.in/outport(MSGVDT.TTL:8) 

P  10s. vsr  <KEYINMAIN:8.0> 

P  11s. vsr  (MINTAC:8.0) 

P  12s. vsr  <MMSGDSPLY:8.0> 

P  13s. vsr  (AC0:8.0> 

P  14s. vsr  <ACl:8.0) 

P  15s. vsr  (AC2:8.0> 

P  16s. var  <AC3:8.0> 

P  17s. vsr  <AC4:8.0> 

P  18s. vsr  <INTPERI0D:8,0> 

P  19s. vsr  (NSG0:8.0> 

P  20s. vsr  (HSGl:8.0) 

P  21s. vsr  <HSG2:8.0) 

P  22s. vsr  (NEXTAC:8.0) 

P  23s. vsr  (TP0LL:1.0> 

P  24s. vsr  (C0UNT:8.0) 

P  25t.gsnsrstsd  for:  KEYINNAIN 
P  26s.proc  (KEYINNAIN:) 

P  27s.ssnsseond  (KEYFLG:l) 

P  28s. sq  (•T01.KEYFLG,BC0l:8,1.8} 

P  29s.3npf  (•T01.B01:8> 

P  30s. assign  (KEYINNAIN.«C0l:l.8) 

P  31s. loc  (BOl:) 

P  32s.sxitproc  (KEYINNAIN:) 

P  33t.gsnsrstsd  for:  KBINPNAIN 
P  34s.proc  (KBINPNAIN:) 

P  35s. assign  (MENU.0CO2:8.8) 

P  36s.lssusvsnt  (MENU: 8) 


IF  NEXTAC«0  AND  ACO-0  THEN  ACO:»ACNUH;  END  IF 

IF  NEXTAC«1  OR  ACl-0  THEN  ACl:-ACNUH;  END  IF; 

IF  NEXTAC>2  ■>  AC2«0  THEN  AC2:>ACNUH;  END  IF; 

IF  NEXTAC-3  ->  AC3-0  THEN  AC3:>ACNUH;  END  IF; 

WHILE  ACNUH  >  1  :  4  DO 
AC4  :■  4; 

ACNUH  ACNUH  ♦  1; 

END  WHILE; 

END  LOGIN; 


TASK  LOGOUT; 

ACNUH: -0; 

FOR  COUNT  FROH  1  TO  4:4  DO 
SENSE  (KEYCHAR); 

ACNUH : - < ACNUH *10 > /KEYCHAR; 
END  FOR; 

IF  ACO-ACNUH  THEN  AC0:«0;  END  IF; 
END  LOGOUT; 


CONTINGENCY  LIST 

WHEN  KEYINHAIN  :  100  HS  DO  KBINPHAIN; 
EVERY  20NS  DO  KBINPHAIN; 

AT  300HS  DO  KBINPHAIN; 

END 


PROCEDURES 


FUNCTION  keyinmain: 

BINARY,!; 

SENSE  (KEYFLG); 

IF  KEYFLG- 1  THEN  KEYINMAIN:-!;  END  IF; 
END  KEYINMAIN; 

TASK  KBINPMAIN; 

NENU:-0;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHAR-!  THEN  MINTAC  :«!;  END  IF; 
WAIT  !OMS; 

END  KBINPMAIN; 


TASK  MANUAL; 

IF  AC0/-0  THEN  P0LL:-0;  ISSUE  (POLL);  END  IF; 
IF  AC!<0  THEN  POLL:-!;  ISSUE  (POLL);  END  IF; 
IF  AC2<-0  THEN  P0LL:«2;  ISSUE  (POLL);  END  IF; 
IF  AC3>-0  THEN  P0LL:«3;  ISSUE  (POLL);  END  IF; 
IF  AC4>0  THEN  P0LL:-4;  ISSUE  (POLL);  END  IF; 
END  MANUAL; 


FUNCTION  TPOLL: 

BINARY,!; 

IF  INTPERIOD-30  THEN  IN  30  M  DO  TPOLL:-!;  END  IN; 
END  IF; 

END  TPOLL; 


TASK  MSGDSPLY; 

KBINPNAIN; 

NNSGDSPLY:-0; 

WAIT  MMSGDSPLY^!:  SOOMS; 

WAIT  UNTIL  MMSGDSPLY  -  0:  !OMS; 
END  MSGDSPLY; 


TASK  LOGIN; 

ACNUN:-0; 

FOR  COUNT  FROM  !  TO  4:4  DO 
SENSE  (KEYCHAR); 
ACNUM:-ACNUM-5; 

ACNUM :  -  (  ACNUM  »  !0  )  '•^  KEYCHAR  ; 
END  FOR; 
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APPENDIX  B 


CSDL  TEST  PROGRAM 

This  appendix  contains  Carson's  CSDL  test  prograa  to 
axarciss  tha  Translator  to  produce  all  possible  primitives. 
As  originally  written,  it  did  not  contain  the  CSDL 
structures  to  produce  the  primitives,  's.sub',  's.not', 
's.call',  and  's.waitleast' .  Structures  have  been  added  to 
produce  all  except  's.not'.  Also,  the  structure,  'DO  MANUAL 
4;',  originally  found  in  the  contingency  list,  caused  the 
Transistor  to  produce  an  error  message  even  though  it 
appeared  to  be  correct  according  to  CSDL.  This  structure 
was  deleted.  The  resulting  primitive  list  and  application 
timing  table  are  contained  in  Appendix  C. 


DESIGNER  :  “HILL  CARSON/  MODIFIED  BY  BOB  VOGEL** 
DATE  :  "OS-31 -84/02-20-85" 

PROJECT  :'‘TEST  PROGRAM  TO  EXERCISE  TRANSLATOR" 


DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  1; 
MONITORS  1; 


ENVIRONMENT 

INPUT : KEYFLG , 1 , TTL ;  KEYCHAR , 8 , TTL ; 

ACNUH,8,TTL; 

END  INPUT; 

OUTPUT:  MENU, 8, TTL; POLL, 8, TTL;  END  OUTPUT; 

DUPLEX  MSGVDT,8,TTL;  END  DUPLEX; 

ARITHMETIC:  KEYINMAIN,8;  MINTAC,8;  MMSGDSPLY,8; 
AC0,8;  AC1,8;  AC2,8;  ACS, 8;  AC4,8; 
INTPERI0D,8;  MSG0,8; 

MSG1,8;  MSG2,8; 

NEXTAC,8;  TP0LL,1;  COUNT, 8; 

END  ARITHMETIC; 


WHILESTART 
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B*g inning  of  WHILE  Construct 


FOREND 

42 

End  of  FOR  LOOP 

FORCONS 

43 

Condition  Tsstsd  in  FOR  LOOP 

CALL 

44 

Gsnsrsts  a  Pocadurs  Call 

ASSIGN 

49 

Assignssnt  Statsssnt 

SENSECOND 

50 

Sanaa  a  Condition  for  Data  Input 

ISSUEVENT 

51 

Data  Output 

NI 

61 

End  of  IN  Construct (Tisad  Block) 

IN 

62 

Bag inning  of  IN  Construct 

FIXEDWAIT 

63 

Tisad  Softwara  Dalay 

WAITLEAST 

64 

Minimus  Wait 

BOOLWAIT 

65 

Body  of  Boolaan  Wait  Constuct 

STBOOLWAIT 

66 

Wait  Until  (Start  of  Boolaan 

Wait  Construct) 

INPUTPORT 

86 

Input  Spacif ication 

OUTPUTPORT 

87 

Output  Spacif ication 

IN/OUTPORT 

94 

Duplax  (input  or  output)  Spac 

VAR 

105 

Variabla  Assignsant 

EXITPROC 

146 

Marks  Exit  of  Procadura, 
Function,  or  Task 

PROC 

145 

Marks  Bag inning  of  Procadura, 
Function,  or  Task 

SYSTEM 

190 

Ganaratas  Systas  Titia 

« 

102 

Ganaratad  by  Translator  as 
Location  Assignsant  Placa 

Holdars 

CONS 

190 

Constant 

•  Although  th«  Translator  is  suppossd  to  bs  abls  to 
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APPENDIX  E 


REVISED  Z-80  REALIZATION  VOLUME 


This  appendix  diaplaya  the  revised  Z-80  Realization 
Volume.  It  contains  primitives  retained  from  Smith's 
original  Z-80  Volume  plua  ne«fly  constructed  primitives. 


vCOOO  z80  cpu  :  clpper=0.2S  :  aeMUy=0.2S  :  loncstalO: 

v067ai.car(lcase  i  •  ,0,0,872,876) 

vlOOS). clock  ,  ,0,0,1005,1028) 

vl029h.l(eydisplay(::  ,  ,  ,6,8,1029,1048) 

vOaTTh.— pry  ,  ,2,3,877,897) 

v0847h. processor  ,  ,  ,2,3,847,871) 

v0698h.tcardcage  ,  ,0,0,898,904) 

vl22ah.uart  (::  ,  ,  ,0,0,1228,1242) 

vl206s.  call  (nae  ::3, 17,5,7,0,1206,1213) 

v0354s.  add  (rslt,  argl,  ara2:0,8, 0, 8, 0, 8:23, 78, 26, 14, 0, 354, 368) 

v0553s.add  (rslt,  argl,  arg2:0, 16, 0,16, 0,16:31, 126, 37, 18, 0,553, 571) 

vOl  10s.  and  (rslt ,  argl,  arg2 :0, 8, 0, 8, 0, 8: 11, 47, 14, 10, 0, 1 10, 120) 

v0572s. assign  (var,  data:0, 8, 0, 8:6, 26, 8,7, 0, 572, 579) 

vO5B0s.  assign  (var,  data:0, 16, 0, 16:6, 32, 10, 7, 0, 580, 587) 

vl 162s. boolHait  (rslt,  top, bot :0, 8:22, 93, 26, 23, 0, 1 182, 1205) 

vOS96s.cons  (naa,val,  :0, 8: 1,0, 0,6, 0,596, 602) 

v0677s.cons  (nai,val,  ;0, 16:2,0,0,6,0,677,683) 

V09055.  divide  (rslt,  argl,  arg2:0,8, 0, 8, 0, 8:56, 504, 129, 41, 0, 905, 946) 

v0947s.divide  (rslt, argl, arg2:0, 16,0, 16,0, 16:80, 1465, 376,57, 0,947, 1004) 

v07005.end  (::3, 10,3,8, 10,700,710) 

v0228s.«|  (rslt,argl,arg2:0,8,0,a,0, 8:16, 70,20, 13,0,228,241) 

V0441S.  eq  (rslt,  argl,  arg2;0, 8, 0, 16, 0, 16: 18, 91, 26, 13, 0, 441, 454) 

v0148s.equivalenc(rslt,argl,arg2:0,8,0,8,0,6:12,51, 15, 17,0, 148, 165) 
v0670s.exitproc  (naa  ::  1,10, 3, 6, 0,670, 676) 

V10495.  fixedoait  (tiee'.0, 1275: 15,-^  18,6,0, 1049, 1068) 

v0396s.  forcons  ( indx,  Iwr,  upr,  slab,elab,  val  :0, 8, 0, 8, 0, 8: 17, 70, 21 , 6, 0, 396, 413) 

v0315s. forend  (indx,  slab, elab:0, 8:7, 27, 8, 3, 0, 315, 324) 

v02a6s.  ge  (rslt,  argl,  arg2:0, 8, 0, 8, 0, 8:42, 108, 31, 28, 0, 286, 314) 

V0414S.  gc  (rslt,  argl,  arg2:0, 8, 0, 16, 0, 16:46, 1 18, 34, 26, 0, 414, 440) 

vOOeOs.  gt  (rslt,  argl,  arg2 :0, 8, 0, 8, 0, 8:45, 1 18, 34, 29, 0, 80, 109) 

v0482s.  gt  (rslt ,  argl,  arg2:0, 8, 0, 16, 0, 16:46, 1 18, 34, 26, 0, 482, 508) 

v0166s.  iepl  icate  (rslt,  argl,  arg2:0, 8, 0, 8, 0, 8: 14, 57, 17, 16, 0, 166, 182) 

vl214s.in  (::  ,  ,  ,9,0,1214,1223) 

vl 104s. inputport  ( innaa, tccb:0,8:0, 0, 0, 13, 12, 1 104, 1 125) 

v1069b.  issuevent  ((Hitna:0, 8:5, 24,7,8,0, 1069, 1077) 

v0711s.japf  (val,loc  :0,8:  3,30,8,8,0,711,719) 

v032Ss.le  (rslt,argl,arg2:0,8,0,^0, 8:42, 108, 31,28,0, 325, 353) 

v04S5s.  le  (rslt,  argl,  arg2:0, 8, 0, 16, 0, 16:46, 1 18, 34, 26, 0, 455, 481 ) 

v0693i.loc  (loc  ::  1,4, 1,6,0,693,699) 

V0242S.  It  (rslt,  argl,  arg2:0, 8, 0, 8, 0, 8: 45,118, 34, 29, 0, 242, 271 : 
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vOX9i.  It  (rslt,«rgl,«rga:0,8,0, 16,0, 16:46, 131,38,26,0,369, 395) 

vOBOSfciiin  (::7,24,7,21,23,509,552) 

v0780i.«mitor  (:t  1,4, 1,7,0,720,727) 

vOTShMlt  lrslt,ar|l,ar(|2;0,8,0,8,0,a:35, 528, 138,22, 0,735, 757) 

V0758I.  Mlt  (rsit,  arjl,  apg2:0, 16, 0, 8, 0, 8:34, 527, 138, 21, 0, 758, 779) 

v0780i.mlt  (rslt,  argl,  arg2:0, 16,0, 16, 0, 16:39, 1 105, 289, 22, 0, 780, 802) 

V02725.  ne  (rsit,  *rgl,  arg2:0, 8, 0, 8, 0, 8: 16, 71, 20, 13, 0, 272, 285) 

v0e33s.  m  (rsit,  argl,  arg2:0, 8, 0, 16, 0, 16: 18, 91, 26, 13, 0, 833, 846) 

vl224s.ni  (::  ,  ,  ,3,0,1224,1227) 

v0219s.  not  (rsit,  argl  :0, 8, 0, 8:7, 30, 9, 8, 0, 219, 227) 

v0069s.or  (rslt,argl,arg2:0,8,0,8,0,8:ll,47, 14,10,0,69,79) 

vl076i.o«tputport  ((MitM,tKh:0, 8:6, 29,8, 14, 13, 1078, 1103) 

v0688s.proc  (nia  ::  1,4, 1,7,0,588,595) 

vl  1261.  sansKond  ( innaa:0, 8:5^  129, 37, 44, 0, 1 126, 1 170) 

v0183s.s»tiw  (clkt  is:0, 32768:37, 166, 46, 12, 13, 183, 218) 

vll71s.stboolMit  (top,nMti:  :l,-5, 1, 10,6, 1171, 1181) 

'diaSSs.  sub  (rsit,  argl,  arg2 :0, 8, 0, 8, 0, 8:23, 87, 26, 14, 0, 635, 649) 

vOeSOi. sub  (rsit, argl, arg2:0, 16,0, 16, 0, 16:31, 126, 37, 19, 0, 650, 669) 

v0614s.tabaccp2  (::  ,  ,  ,0,0,614,625) 

v0728s.tafaMd  (  ::  3,10,3,6,0,728,734) 

v0603B.tabent  (fnc,task  :: 10, 51, 15, 10, 0,603, 613) 

v0626s.var  (naK:0,8:0,0, 0,3,0,626, 634) 

v06B4s.var  (naK:0, 16:0,0,0,3,0,684,692) 

v0121a.  Mit  least  ( indx,  upr,  top,  bot,  per,  eax:©,  8, 0, 8:23,  -10, 27, 26, 20, 121, 14 

v0824s.Hhend  (top,bot:!3,10,3,4,0,824,832) 

xOaiSs. uhi lecon  (rsit, bot :0, 8:7, 27, 8, 8,0, 815, 823) 

v0803s.idiilcstart  (top,  Ipct : :  1, 4, 1, 6, 0, 803, 814) 

v006B  .end  index 

v0069s.or  (rsit,  argl,  arg2:0, 8, 0, 8, 0, 8: 11, 47, 14, 10, 0, 69, 79) 
v0070rm  prieitive  to  perfori  logical  or 

v0071coe  list»result,arguient  1,  argueent  2  ::5tor,tiBe,ext,c,i,addrs 
v0072begin  stext 

v00731d  a, ((argl))  ;4b  13t  3b  rsit  =  argl  .or.  arg2 

v00741d  b,  a  {la  4t  lb 

vOOTSld  a,(<arg2))  ;4a  13t  3b 

v0076or  b  ;la  4t  lb 

v00771d  ((rsit)), a  ;4a  13t  3b 

v0078efsitcxt 

v0079Calc  roaptr*nxpptr+ll 

vOOSOs.  gt  (rsit,  argl,  arg2:0,8, 0, 8, 0, 8:45, 1 18, 34, 29, 0, 80, 109) 

vOOSlooe  prieitive  to  per fore  coeparision  betneen  2  8-bit  nuebers 
vOOSScoa  list>re5ult, argueent  1,  argueent  2  ;:stor,tiBB,ext,c,i,addrs 
i^mSbegin  stext 


vOQ041d 

•,((arg2))  ;4a 

13t 

3b 

if  arg2  It  argl  then  rslt=ffh 

vooasid 

b,  a 

4t 

lb 

bsarg2 

v00a61d 

a,  ( (argl) ) 

5^ 

13t 

3b 

v00671d 

Ct  * 

il« 

4t 

lb 

c»argl 

vOOeaand 

a 

ill 

4t 

lb 

set  sign  flag  of  argl 

vooe9jp 

p,»400dh 

i3i 

tot 

3b 

juap  if  argl  is  positive 

v00901d 

a,  b 

ill 

4t 

Ib 

argl  *  - 

v0091and 

a 

ill 

4t 

lb 

set  sign  flag  of  arg2 

vC0921d 

bi  c  (la 

4t 

lb 

arg2  .SMp.  argl 

v0093i]p 

a,  teOllh  :3a 

lOt 

3b 

arg2  »  -  argl  •  -  coap  backMrds 

v00941d 

a,  0  (2b 

7t 

2b 

arg2  =  ♦  argl  ■  -  false 

vOOnijr 

te22  :3a 

12t 

2b 

vOOSSld 

a,  b  (la 

4t 

lb 

v0097«id  a  {la 

4t 

lb 

set  sipt  flag  of  arg2 

v009Bld 

a,  c  (la 

p,  f^7h  :3b 

4t 

lb 

restore  argl  to  accuaulator 

v0099jp 

lot 

3b 

arg2  »  ♦  argl  -  ♦ 

vOlOOld 

a,iiiiiiiib:ai 

7t 

2b 

arg2  *  -  argl  =  +  true 

vOlOljr 

tei2  (3a 

12t 

2b 

v0102cp 

b  (la 

4t 

lb 

v0i031d 

a,OOOOOOOOb(2B 

7t 

& 

result  false  arg2  )-  argl 

v0104jp 

z,  te7  :3b 

lot 

3b 

vOlOSjp 

a,  te4  (3b 

lot 

3b 

vOlOEcpl 

;!■ 

4t 

lb 

result  true  arg2  It  argl 

v01071d  «rslt)),a  ;4a 

13t 

3b 

vOlOindttxk 

v0109calc  KMptr-nMvtrMS 

v0110s.«id  (rflt,4rgl,arg2i0,fl|0,t|0,8:ll,47, 14, 10,0, 110, 120) 

vOlllCM  priiitivt  to  porfoni  logical  and 

v0112coa  listaresult,arguHnt  1,  arguant  2  ::star,tiM,ext,c,i,addrs 
vOllSbagin  stent 

^1141d  a,((argl))  ;4a  13t  3ti  rslt  s  argl  .and.  arg2 

vOllSld  b,  a  ;!■  4t  lb 

vOllSld  a,«arg2})  {41  12t  3b 

vOllTand  b  Sls  4t  lb 

vOliaid  (<rslt)),a  ;4a  13t  3b 

vOlltendtext 

n0l20calc  raiptr<*roaptr+ll 

v0121s.  mit  Itast  (indn,  opr,  top,  bot,  par,iax:0,8, 0, 8:23,  -10,27, 26, 20, 121, 147) 
v012aBai  priiitivt  to  ganerate  a  softnarc  Mit  based  on  the  results  of 
v0123coa  of  an  aritaetic  expression  nhosc  integer  result  is  passed  to 
v0124oae  Mitleast  in  upr  the  value  in  upr  is  the  nuaber  of  tines 
vOi29coe  fixedMit  eill  be  executed  sieilar  to  a  for  loop  fixedMit 
v0126coe  Mill  bn  fad  the  tian  in  the  wiable  per  top  and  bot 
vOi27coa  are  labels  aax  is  the  nix  tia  allowd  specified  by  the 
v0128caa  daignar  for  all  pasible  coabinations  of  upr  and  per 
v0129c«  per  and  aax  are  in  a  to  the  nearat  Sa  the  aax  alloued  value 
v0130coa  for  per  is  127Sa  and  the  aax  alloeed  value  of  upr  is  127 
vOlJlattr  tiaB><aax)a4000 
v0132begin  staxt 

v01331d  a,  1  7t  2b  counter  alays  starts  at  one 

v0134<top)ild  (<indx)),a  |4n  13t  3b  update  <indx)  with  latat  vala 

v013Sld  a, (<upr))  |4n  13t  3b 

v0l361db,a  {la  4t  lb 

v0  371d  a,«indx))  ;4a  13t  3b 

vOl38cp  b  {la  4t  lb  coapare  to  upper  Unit 

v0139jp  z,  <bot)'f3  ;3b  lOt  3b  juap  out  of  loop  on  indx^upr 

v0140andtext 

vOtelcall  s. fixedMit  (<per)i) 
v0142begin  stext 
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v01431d  a,({indx>)  ;4«  13t  3b  g*t  currant  indx  valut 

v0144inc  a  ;li  4t  lb  crank  indx 

«014S<bot>ijp  Hop)  ;3i  lOt  3b  juapt  to  top  of  loop 

x0146mltaiit 

vOU7calc  r(»ptr«roaptr*23 

v0148i.H|uvalanc(rslt,argl,arg230,B,0,ll,0,8:i2,Si,  15, 17,0, 148, 165) 
v014Scoa  priaitivt  pirfora  to  thi  logical  •quivalmca  relation 
\d)150coa  the  truth  table  is  as  folloMs 


vOlSlcoa 

argl 

arg2 

rslt 

^iS2caa 

falae(OOh) 

false 

true(ffh) 

vOlSScoe 

false 

true 

false 

v01S4coa 

true 

false 

false 

vOlSScoa 

true 

true 

true 

xOiSScoa  equivalence  is  sisply  the  opposite  of  xor 
vOlSTbegin  stext 


vOlSBld  a,  ((argl» 

5^ 

13t 

3b  rslt 

B  argl  .equiv.  arg2 

vOlSSld  b,  a 

;!■ 

4t 

lb 

v01601d  a,  ((arg^) 

13t 

3b 

v0i61xor  b 

)!■ 

4t 

lb 

v0162cpl 

;!■ 

4t 

lb 

v01631d  «rslt)),a 
v0164endtext 

13t 

3b 

v016Scalc  raaptraroaptr+12 

v0166s.  iaplicate  (rslt,  argl,arg2i0,a,  0, 8,0,8: 14,57, 17, 16, 0, 166, 182) 
v0167cob  priaitive  to  perfora  logical  iaplication  check 

\K)168cob  truth  table  is  as  folloes 

v0169coa  argl 

arg2 

rslt 

vOlTOcoa  falae(OOh) 

false 

true(ffh) 

vOnicoa  false 

true 

true 

vOlTScoa  true 

false 

false 

\d)173coa  true 

true 

true 

v0174begin  stext 
vOlTSld  a,  «arg2)) 

13t 

3b  rslt 

s  argl  .iaplicate.  arg2 

v0176Hd  a 

;!■ 

4t 

lb  set  zero  flag 

v0177jp  nz,f^7 

lot 

3b  if  arg2^rue  then  rslt=true 

v0178ld  a, ((argl)) 

13t 

3b  if  arg2Bfalse  then  get  argl  and 

v0179cpl 

4t 

lb  rslts  , 

.not.  argl 

vOiaoid  ((rslt)), a 

13t 

3b 

vOMlendtext 

v0182calc  roaptr"ro^itiH'14 

v0183s.aetiM  (clktiai0,32768i37, 166,46,12, 13,183,218) 
v0184cea  priaitive  to  set  channel  1  of  etc  to  soae  initial  value 
vOlSScoa  clktie  is  initial  tiw  deciial  in  Billiseconds 
v0186caB  because  channel  0  serves  as  the  clock  input  to  channel  1 
tK>187ooe  with  1  eillisecond  pulses  there  wuld  be  a  latent  delay  in 
vOl88coe  resetting  channel  1  because  nee  values  for  the  doencounter 
vOlSkoe  are  not  transfered  froe  the  load  register  to  the  douncounter 
vOlSOcoe  until  a  nee  clock  pulse  is  sensed  therefore  this  priaitive 
\d)i9icoa  also  short  tiaes  the  channel  0  clxk  to  generate  an  output  pulse  such 
vOlSBcoe  that  channel  1  is  iaaediately  reset  to  the  value  passed  through  the 
vOlSkoe  argueent  clktia 


v0194if  clock  .M.  0  ikip  2 
tKllSBoilc  clock>l 
w01%iiiel  Ikclock  <::) 
«0197bqiii  ftcxt 


v01981d  a,01110001b 

)2» 

7t 

2b 

cottntcrlV'ioad  Isb  than  asbtndeOHicx 

v0199Mt  (0f3h),a 

l3i 

lit 

2b 

set  lode  control 

voeooid  hl,(clktti) 

l3i 

lot 

3b 

git  tia  period 

vOeOlld  a,l 

;!■ 

4t 

lb 

Isb  of  clktii 

voeoeoit  (Oflh),a 

iSi 

lit 

2b 

load  Isb  to  etc  channel  1 

voeosid  a,h 

5l« 

4t 

lb 

ab  of  clktii 

voeotoct  (0flh),a 

lit 

2b 

load  ab  to  etc  channel  1 

vOeOSld  a,00110100b 

7t 

2b 

countrOf^load  Isb  thm  ab+iode2+bcd 

V0e06oct  (0f3h),a 

l3i 

lit 

2b 

at  adi  control 

V0e071d  a,0eh 

lai 

7t 

2b 

lab  of  0002  bed 

V0e08oct  (Of0h),a 

i3i 

lit 

2b 

02h  in  load  reg  Isb 

v0e091d  a,00h 

.‘Si 

7t 

2b 

ab  of  0002  bed 

vOeiOoct  (OfOb),a 

!3i 

lit 

2b 

OOh  in  load  reg  ab 

voeilld  a,00110100fa 

sai 

7t 

2b 

contrO«’load  Isb  then  abHndceHicd 

v0ei2oHt  (0f3h),a 

53k 

lit 

2b 

set  ade  control 

vOeiSld  a,00h 

501 

7t 

2b 

Isb  of  2000  bed 

v0ei4oirt  (Of0h),a 

i3i 

lit 

2b 

00b  in  load  reg  Isb 

vOeiSld  a,20h 

sSk 

7t 

2b 

ab  of  2000  bed 

vOeiSoit  <0f0h),a 

53i 

lit 

2b 

20h  in  load  reg  ab 

v0217Mdtert 

vttlfctlc  roiptr"ro^itH'37 

v0213ikfwt  <rslt,argliO, 8,0,017,30,9, 8,0, 219,227) 

'MSOem  priaitivt  to  pcrfori  loginl  iwt,  co^ilcant 

v022lGaR  litt«rHttlt,4rguHnt  1,  arguont  2  tiBtor,tiM,txt,c,i,addrt 

Y0222l»gin  ittirt 

yC2231d  a,««rgl))  }ta  13t  3b  rslt  » not  argl 

v0224cpl  {!■  4t  lb 

vCeeSld  «rflt)),«  ;4a  13t  3b 

v022E«idttit 

y0227calc  nafltr^nmpltr*! 

v0228i.cq  (rtlt,argl,arg2i0, 8, 0,8, 0,8(16,70, 20, 13, 0,228, 241) 

v0289boa  priaitivc  to  pcrfori  coipirision  bctucm  2  B-bit  mobcrs 
vO230ooi  lift«rcsult,arguHnt  1,  arguwit  2  ::stor,tiie,ixt,c,i,addrs 
vOSSlbigin  ctiit 


v02321d 

a,  «argl))  )4i 

13t 

3b 

if  argl  »  arg2  thm  rslt>ffh 

v02331d 

b,  a  ill 

4t 

lb 

voestid 

a,  «erg2))  ;4i 

13t 

3b 

voessep 

b  ;li 

4t 

lb 

vOeSBld 

a,llllllllbiai 

7t 

2b 

V0e37jr 

z,  l«3  |3i 

12t 

2b 

result  equl 

v0e38cpl 

;!■ 

4t 

lb 

result  not  equal 

v0e391d  ((ralt)),a  |4i 

13t 

3b 

vOetOrndtixt 

v0241cclc  ro^)tr■ro■ptr4■16 

v0e42i.lt  (rflt,argl,arg2i0,8,0, 8,0,8:45,118,34, 29,0,242,271) 
vOetScoi  priiitivt  to  pirfom  coipcrision  bcticin  2  8^it  nuibirf 
td)e44coi  lift>rcMlt,arguHnt  1,  arguant  2  ::ftor,tiM,cxt,c,i,addrs 


vOeUbigin  sttxt 


vOMM  a,«argl))  {4a 

13t 

3b 

if  argi  It  arg2  then  rslt=ffh 

xOMHd  b,  a 

ill 

4t 

lb 

bwgl 

v0e481d  a,((ar|2»  {40 

13t 

3b 

w82491d  c,  a 

it* 

4t 

lb 

cwg2 

x02S0aiid  a 

;ii 

4t 

lb 

set  sign  flag  of  arg2 

v02Sljp  p,f*00dh 

J3i 

lot 

3b 

jap  if  arg2  is  positive 

v02921d  a,  b 

5l« 

4t 

lb 

arg2  *  - 

v0eS3ad  a 

)!■ 

4t 

lb 

set  sign  flag  of  argl 

v0e541d  b,  c 

ill 

4t 

lb 

argl  .soap.  arg2 

v02aBjp  o,(4011h 

iSi 

lot 

3b 

argl  «  -  arg2  -  -  coop  backoards 

v02Sfild  a,  0 

{21 

7t 

2b 

argl  *  ♦  arg2  *  -  fal» 

v0257jr  »*01fih 

i3l 

12t 

2b 

vOeSBld  a,  b 

ill 

4t 

lb 

v8299ad  a 

ill 

4t 

lb 

sot  sign  'lag  of  argl 

v02601d  a,  c 

ill 

4t 

lb 

restoro  arg2  to  accaulator 

V0281JP  PibtOOTh 

i3l 

lot 

3b 

argl  »  ♦  ar§2  *  ♦ 

v02621d  a,llllllllb{2o 

7t 

2b 

argl  *  >  arg2  -  *  tra 

vOeSSjr  «tOOch 

i3l 

12t 

2b 

td)264cp  b 

ill 

4t 

lb 

v02651d  a,00000000b{2o 

7t 

2b 

rowlt  fala  argl  )«  arg2 

v02tfjp  z,  9*7 

i3l 

lot 

3b 

^d)K7jp  0,  PH 

i3i 

lot 

3b 

v0268cpl 

ill 

4t 

lb 

result  tra  argl  It  arg2 

v02B91d  ((nlt»,a 

i4i 

13t 

3b 

vOSTOmdtmt 

v0271ctlc  naptrvKMptrHS 

¥Xnii.m  (irslt,ar|l,arg2iO,8|0|S,0,8il6|71,20|13,0,278,285) 
vCeTScaa  priiitiw  to  porfoni  coipiritioii  bctNom  2  SHiit  nuaters 
v027tooa  Uft«rts«lt,arg«Mnt  1,  arguant  2  tiftor,tiM,oxt,c,i,addrs 
v027Sii|iii  stout 


v02761d 

a,(<argl>)  {4o 

i3t 

3b 

if  argl  «  arg2  then  rslt^ffh 

v0e771d 

b,  a  {lo 

4t 

lb 

v02781d 

a,«arg2)l  {4o 

i3t 

3b 

v0279ep 

b  {Is 

4t 

lb 

voeooid 

a,  0  {as 

7t 

2b 

voesijr 

z,  H003h  {3l 

13t 

2b 

result  not  eqal 

v028acpl 

ill 

4t 

lb 

result  equal 

v02831d 

(<rslt»,a  {4o 

13t 

3b 

vO0B4fndtoiit 

v<l26oslc  r(Mptraraiptr*'16 

iK)0B6s.gi  (rslt,ar|l,arg2:0,8,0,S|0|li42,106|31,2^0,286,314) 
vOEITcn  prioitivo  to  porforo  coopvision  bttwon  2  8-bit  nuobers 
vOMcoo  Utt^^lt,arguMnt  1,  arguant  2  ::stor,tia,cxt,c,i,addrs 
v02MlMgin  stoxt 


vcewid 

a,«ar||^)  {4o 

i3t 

3b 

if  arg2  le  argl  then  rslt^ffh 

V0e911d 

ill 

4t 

lb 

bBarg2 

v029eid 

a,«argl))  {4o 

13t 

3b 

voenid 

C|  • 

ill 

4t 

lb 

c««rgl 

v0e94and  a 

ill 

4t 

lb 

sot  sign  flag  of  argl 

v029Sjp 

p,P*00dh 

i3i 

lOt 

3b 

jap  if  argl  is  positia 

voexid 

a,  b 

)!■ 

4t 

lb 

argl  *  - 

'ASnmA  a 

|1« 

4t 

lb 

itt  sign  flag  of  arg2 

vOCSIM 

b,  c 

111 

4t 

lb 

arg2  .saap.  argl 

«oe99jp 

a,  »t011h  |3a 

lot 

3b 

arg|2  >  -  argl  >  -  coap  backaards 

voawid 

a,  0 

7t 

2b 

arg2  >  *  argl  >  -  falsa 

vODljr 

8*013i 

l3» 

12t 

2b 

yoaoeid 

a,  b 

{!■ 

4t 

lb 

v0303Md  a 

Ill 

4t 

lb 

sat  figp  flag  of  arg2 

v03041d 

«.  c 

4t 

lb 

rastora  argl  to  accuaulator 

vOJOSjp 

Pt  P*007h  |3a 

lot 

3b 

arg2  »  +  argl  »  ♦ 

yO3081d 

a,llllllllb;& 

7t 

2b 

arg2  *  -  argl  *  +  trua 

v0307jr 

8«009h 

;3i 

12t 

2b 

voaoocp 

b 

ill 

4t 

lb 

v03091d 

a,llllllllbtai 

7t 

2b 

rasult  falsa  arg2  >-  argl 

V0310JP 

p, 

l3i 

lot 

3b 

yOSllcpl 

ill 

4t 

lb 

rasalt  traa  arg2  It  argl 

v03121d  «rtlt)),a 

i^ 

13t 

3b 

v0313mdtffit 

v0314ctlc  raipkr«roiiptr«42 

\MlSi.fbrmd  (indi,flaii|tlabi0,8i7,27,8,3|0|315,3S4) 

priaitivi  to  end  •  for  loop 
^Ticoa  lict«iiidtx,ftart  latel,ond  latel 
vOSlInlc  pop  ripi 
^Sbqin  itmt 

«O3201d  a,(<ifMfa())  {to  13t  3b  got  valui  of  indtx  at  top  of  loop 

«0321ifK  a  ;!■  4t  lb  erwk  indix 

idK32S<flablijp  <slab)  i3i  lOt  3b  jiap  to  for  loop  tatt 
«0323ndt«t 

vOBtcalc  ra^itr«raaptrr7 

v«3eSi.lt  (rsltfargl.v^iO, 8,0, 8,0,8142,106,31, 28, 0,325,353) 

«038Geoi  priaitivt  to  parfoni  coaparision  batnaan  2  8^it  iMart)ars 
v0327ooa  ltBt"rai«lt,argiaaiit  1,  arginant  2  i:stor,tiw,ext,c,i,addrs 
vOSEftagin  atait 


v03291d  a,«argl»  |4a 

13t 

3b 

if  argl  la  arg2  than  rslt^ffh 

sOSDld  b,  a 

ill 

4t 

lb 

twgl 

v03311d  a,  ((aria)  i^a 

13t 

3b 

y03321d  e,  a 

ill 

4t 

lb 

c«arg2 

«0333«d  a 

iH 

4t 

lb 

sat  sign  flag  of  arg2 

V0334JP  p,«*13 

iii 

tot 

3b 

ju^i  if  arg2  is  positiva 

vOSSSld  a,  b 

ill 

4t 

lb 

arg2  •  - 

vOOfaada 

iH 

4t 

lb 

sat  sign  flag  of  argl 

sOSTU  a,  c 

ill 

4t 

lb 

rastora  arg2  to  accuaulator 

sOnjp  ■,  f*17 

i3l 

lot 

3b 

argl  >  •  arg2  ■  -  coop  backaards 

V033IM  a,  0 

i^ 

7t 

2b 

argl  «  *  arg2  •  ~  false 

sOMOjr  0*13 

i3i 

12t 

2b 

v03411d  a,  b 

ill 

4t 

lb 

id)342Bad  a 

ill 

4t 

lb 

sat  sign  flag  of  argl 

v03431d  a,  c 

ill 

4t 

lb 

rastora  arg2  to  accuaulator 

va344jp  p,  0*7 

i3l 

lot 

3b 

argl  ■  ♦  arg2  ■  * 

v034Sld  a,lllllillb|ai 

7t 

2b 

argl  «  -  arg2  ■  *  trua 

v03«jr  0*9 

i3l 

12t 

2b 

v0347cp 

b  {la 

4t 

lb 

vOIMld 

a,llllllllb{2a 

7t 

2b 

result  falsa  argl  )■  arg2 

v03«9jp 

p,  9*4  {3b 

lot 

3b 

uOSBOcpl 

4t 

lb 

result  true  argl  It  arg2 

v03511d 

((rslt)),a  {4a 

13t 

3b 

vMawdtwt 

vOSSSnlc  rfliptr*r(aptr«42 

vOSSta.  add  (rslt,  argl,arg2t0f  A|  0,  fl,  0, 8:23,71, 2&,  14, 0, 354, 3fi8) 

^dOSScoi  priaitiva  to  add  argl  and  arg2  and  stort  in  rslt 
v035Scon  littartlt,argl,arg2tprKisions:B,t,t,c,i,addr 
v03S7bqin  stoat 

v035Bld  a,  ((argl))  |13t  4n  3b  stora  argl  in  accuaulator 

v03991d  hi, (arg2)  ;10t  3b  3b  havo  hi  point  to  arg2  byta 

vOSBOiM  a,  (hi)  |7t  di  lb  add  accuaulator  aith  arg2 
vOSBljp  po  ,t«13  ;3b  lOt  3b  if  no  ovarfloa  stora  result 

v03fi^p  c  ,t*6  {3b  lot  3b  if  carry  tha  aaaiaize  sinus  rslt 

v03B31d  a,01111111b{ai  7t  2b  put  in  largast  positive  value 
v03Mjp  0*5  iSi  lot  3b 

vOSBld  a,  10000000b  7t  2b  put  in  largest  negative  value 
^d)3ttld  ((rslt)), a  :13t  4b  3b  save  result  of  add  in  rslt 
v03B7iendtait 

v036fletle  raaptr«rQaptr*23 

V03B9B.  It  (rslt,argl,arg2:0,a,0, 16,0,16:46,131,30,26,0,369,395) 
vOSTOcoa  priaitiva  to  parfora  coaparision  betaoen  2  16-bit  nuafaers 
v0371caa  list^resslt,argiaBnit  1,  arguaent  2  ::star,tiBa,ei(t,c,i,addrs 
v0372begin  staut 

«03731d  di,((ar|l))  }6b  20t  4b  if  argl  It  arg2  then  rslt^ffh  da»<argl) 
v03741d  hl,((arg2))  {9a  16t  3b  hl«(arg2) 

vOSTSld  a,  h  {la  4t  lb 

v0376Md  a  {la  4t  lb  sat  sign  flag  of  arg2 

Pi ^13  {3b  lot  3b  juap  if  arg2  is  positive 

vOITIld  a,  d  |la  4t  lb  arg2  «  - 

id>379and  a  |la  4t  lb  sat  sign  flag  of  argl 

vOSBOjp  a,0*lS  {3b  lOt  3b  argl  >  -  vg2  »  -  coap  bachaards 

vOSBlld  a,  0  {2b  7t  2b  argl  •  *  arg2  *  -  false 

vO302;]P  9*24  {3b  lOt  3b 

v03031d  a,  d  {la  4t  lb 

v03Mand  a  {la  4t  lb  set  sign  flag  of  argl 

id)3K!ijp  p,9*0  {3a  lot  3b  argl  «  *  arg2  «  * 

v03Kld  a,llllllllb{ai  7t  2b  argl  arg2  «*  true 
vOSnjp  9*14  {3a  lot  3b 

vOlMrte  hl,dB  {4a  ISt  2b 

vOanid  a,OOOOOOOOb{2B  7t  2b  result  falsa  argl  )>  arg2 

V0390JP  t,  9*7  {3b  lot  3b 

«0391JP  ^  {3B  lot  3b 

v0392cpl  {la  4t  lb  result  true  argl  It  arg2 

v03931d  ((rslt)),a  {4a  13t  3b 

v0394sndtaiit 

vOlHcalc  roa(itr«roaptr*46 

v0396s.foroonB  <indx,lar,upr,slab,clab,va2:0, 8,0, 0,0,0:17, 70,21, 6,0, 396,413) 

v0397cea  priaitiva  to  sat  up  a  loop  aith  constant  bounds 


vOMooi  loner  bound, upper  bound, otart  label,end  label 

tdiaiBoe  Bw  alloued  value  of  indx,lur,md,upr  it  127 
vOMOooi  became  the  tranelator  calls  for  16  bit  precision  if  a 
uOtOlooi  preater  maber  is  spKifiad  <val>  is  nax  loop  count 
vOMBoale  purii  reps 
vOWScalc  repsFivall 
vO¥MbB|in  stext 


v04001d  a,  (dur)) 

{^ 

13t 

3b 

loner  bound  of  counter 

v0406<slah)ild  (<indx)),a 

{<■ 

13t 

3b 

update  (indx)  nith  latest  value 

v04071d  a,  «upr)) 

{^ 

13t 

3b 

v040Bld  b,a 

{!■ 

4t 

lb 

v04091d  a, ((indx)) 

{4a 

13t 

3b 

v04i0cp  b 

;!■ 

4t 

lb 

coapare  to  upper  liait 

v0411jp  1,  iilah)*3 

{3* 

lot 

3ta 

juep  out  of  loop  on  index«upr 

vMlBndtext 

vMiacdc  roeptr-roit^T^l? 

vMlti.  p  (rslt,  argl,arfl2t0,  A,  0, 16,0, 16:46, 116,34,26,0, 414, 440) 

v041Sbob  prieitive  to  parfore  coeparision  betueen  2  16-bit  nuebers 
v0416cae  list«result,ar|uwnt  1,  arguant  2  it^or,tiae,ext,c,i,addrs 
v0411bogin  stext 

v04181d  de,((arg2))  i6n  20t  4b  if  ar92  leargl  then  rslt^ffh  deB(arg2> 
v04191d  hl,«»gl))  {So  16t  3b  hl=(argl> 


v04201d  a,  h 

{!■ 

4t  lb 

v0421aiid  a 

{!■ 

4t 

lb 

set  sign  flag  of  argl 

v0422jp  p,0»13 

1^1 

lot 

3b 

juap  if  argl  is  positive 

v04231d  a,  d 

4t 

lb 

argl  *  - 

v0424«d  a 

4t 

lb 

set  sip  flag  of  arg2 

\d)42Sjp  a,0»16 

)3b 

lot 

3b 

arg2  ^  -  argl  *  -  coap  backnards 

v04261d  a,  0 

{81 

7t 

2b 

arg2  ■  ♦  argl  ■  -  false 

V0427JP  0*24 

{30  lot  3b 

v04281d  a,  d 

{!■ 

4t  lb 

v0429Bnd  a 

;!■ 

4t 

lb 

set  sip  flag  of  arg2 

VO430JP  p,0*6 

{30 

lot 

% 

arg2  »  ♦  argl  ■  ♦ 

v04311d  a,llllllllb{ai 

7t 

2b 

«  -  argl  ■  *  true 

vOtaajp  0*14 

{3e  lot  3b 

v0433Bbc  hl,de 

{^ 

ISt  2b 

v043«ld  a,00000000b{ai 

7t 

2b 

result  false  arg2  )■  argl 

v04a5jp  a,  W 

{^ 

lOt 

3b 

v04a6jp  a,  OH 

l3i 

lot 

3b 

v0437epl 

|ta 

4t 

lb 

result  true  arg2  It  argl 

v043lld  «nlt»,a 

{^ 

13t 

3b 

v043indtest 

idMACcelc  foeptr^roBptr*46 

vOHls.oq  (rslt,argl,arg2:0,6,0,16,0,16il8,91,26,i3,0,441,454) 
^^tacoi  prieitive  to  perfdre  coeparision  brtueen  2  16-bit  nuebers 
vOttaoee  liBt^pesult,arguBBnt  1,  argueent  2  i:stor,tiee,cxt,c,i,addrs 
v0444begin  stext 

v04481d  di,  I  (argil)  |6e  20t  4b  if  argl  «  arg2  then  rslWfh  de«(argl) 
v04461d  hl,((arge»  |Sb  16t  3b  hl>(arg2) 

\^7end  a  ile  4t  lb  clear  carry  fl^ 

v0446abc  hl,dB  {4b  ISt  2b 


89 


vOHsid  •.miiiubiai  7ta» 
«0400ijr  Z«  ^3  i3i  12b  2b 
{!■  4«  lb 

vOttld  «rtlt)),a  |4a  13t  3b 


malt  ^ul 
mult  not  iqual 


vOtStcalc  raiptr>n«ptr»lt 

«<HBb.  li  (rslt,  argl,  arg2i0|  8, 0, 16, 0, 16t46,  lid, 34, 26, 0, 455, 481 ) 

vOtSGon  priaitivt  to  porfoni  conparifion  batnaan  2  ISHiit  iwabars 
>dM57teoa  Uftarafttlt,ar|iaant  1,  arginant  2  :tstor,tiaa,axt,c,i,addrs 
vOtSBbagln  atait 

u04891d  da, (targl))  |6a  20t  4b  if  argl  laarg2  than  r»lt*ffh  daB(argl> 


«04601d  hl,«v|2»  {Si  I6t  3b 


«04611d  a,  h 

Ita 

4t  lb 

u0462Mid  a 

(la 

4t 

lb 

^d)463jp  p,0»13 

(31 

lot 

3b 

u04641d  a,  d 

(la 

4t 

lb 

i046SMda 

(la 

4t 

lb 

v0466jp  a,0»18 

l3i 

lot 

3b 

«04671d  a,  0 

(8a 

7t 

2b 

«0468jp  8«24 

(3a  lot  3b 

«04691d  a,  d 

(la 

4t  lb 

«0470Mda 

(la 

4t 

lb 

U0471JP  p,0»8 

(3a 

lot 

3b 

«04721d  a,llllllllb(& 

7t 

2b 

V0473JP  bfl4 

(k  lot  3b 

«0474abc  hl,da 

ISt  2b 

i047Sld  a,00000000biai 

7t 

2b 

v0476jp  a,  $«7 

(3i 

lot 

3b 

i0477jp  a,  0*4 

(Si 

lot 

3b 

v047Bepl 

(la 

4t 

lb 

«047nd  «ralt>),a 

(^ 

13t 

3b 

hl>(arg2} 

aat  aign  flag  of  arg2 
judp  if  arg2  it  potitive 
arg2  »  - 

aat  aign  flag  of  argl 

argl  «  -  arg2  •  -  coap  bachMrds 

argl  •  *  arg2  •  -  falaa 


tit  aign  fl^  of  argl 
argl  ■  ♦  arg2  «  ♦ 
argl  «  -  argd  >  ♦  trua 


raault  falaa  argl  gt  art^ 


raault  trua  argl  la  argB 

_  ....Jt)).a  i4a  1»  3h 

^d^80andtaat 
^dMSlealc  raapti«raaptr«46 

«048^gt  <ralt,argl,arg2t0,8,0, 16,0, 16i46, 118,34,26,0,482,508) 
v0483nb  priaitiva  to  parfora  coapariaion  bataaan  2  16-bit  nuabara 
^i0484eoa  liBt«raault,arguaant  1,  arguaant  2  i:5tor,tiaa,a)it,c,i,addra 
u0488bagin  atait 

»04861d  dat«arg2»  {6a  20t  4b  if  arg2  It  argl  than  ralWfh  da><arg2) 
v04f71d  hl,(<argl))  {Sa  16t  3b  hl«(argl> 

«04881d  a,  h 
idMMM  a 
lOHOjp  P,0*13 
uomid  a,  d 
«048BMda 
vOtSJjp  aiPfM 
u04l941d  a,  0 
«048^  0*24 
v04%ld  a,  d 
v0497and  a 
V0498JP  PiO^ 

«049lld  a,llllllllb(& 


(la 

(la 

4t  lb 
4t 

lb 

aat  aign  flq  of  argl 

(3a 

lot 

3b 

juap  if  argl  it  poaitiva 

(la 

4t 

lb 

argl  *  - 

(la 

4t 

lb 

aat  aign  flag  of  arg2 

(k 

lot 

3b 

arg2  «  -  argl  >  -  coap  bi 

)2a 

7t 

Sb 

arg2  •  ♦  argl  ■  -  falaa 

|3a  lot  3b 
;la  4t  lb 
(la  4t 

lb 

aat  aign  flag  of  arg2 

(3a 

lot 

3b 

arg2  >  *  argl  ■  * 

(^ 

7t 

2b 

arg2  »  -  argl  ■  ♦  trua 

\  A 


.1 


vCSOOjp  **14  {k  lot  3b 

voaoiibc  hl,di  )4h  ISt  2b 

yOSOeU  a.OOOOOOOObtai  7t  2b  rtMlt  falM  arg2  gt  argl 

voantjp  <•  0»7  }3i  lot  3b 

V0904JP  OH  {3i  lot  3b 

^^noseol  }!■  4t  lb  ramlt  trw  vga  li  argl 

vOSOSld  «rflt»,a  |4«  13t  3b 

vOSOTMtaxt 

vOSOicalc  rc»|itr^r(MptrH6 
v0609l.niii  (t:7, 24, 7, 21, 23,909,332) 
vOSlOOM  priaitivt  to  dofim  oontrollir  iitup  and  initialization 
vOBllcon  lift  >  «i|ity  i  opty  :  storagt,  tin,  oxt,  calc,  incl,  addr 
x0812caa  tlw  ron  pointtr  is  Mt  to  start  at  16384  or  4000h  since  this 
vOSlSeoa  is  tbs  bqinning  of  usar  addrossiblo  Msory  in  the  pro-log 
v0914cae  it  is  called  roe  faecause  ultiately  the  controller's  operating 
vOSlScoa  prograe  noeld  be  bemad  into  roe  the  ran  pointer  starts 
sOSlOcoe  at  32735  ehich  is  32  bytes  beloe  the  top  of  usable  eesory 
v0817oob  on  the  pro-log  to  alloe  a  32  byte  stack  the  top  of  user 
vOSISbob  addressable  aaeory  on  the  pro-log  is  32767  or  7fffh 
vOSHooe  ail  initializations  eill  be  doM  through  the  use  of  global 
«0920een  variable  initlk  and  linked  labels 

v<)S21oob  fo  loeing  the  initializations  prograe  eill  jeep  to  the  top  of  the 
vOBPglBoe  polling  loop  for  the  task  contingency  pairs. 
vC823eoa  to  alloe  the  eae  of  a  debug  proa  developed  at  the  naval 
v0824caa  postgraduate  school  electrical  engineering  departeent  the 
v<l825coa  starting  location  is  changed  to  4096  to  alloe  a  the  systee 
vCS26eoB  to  auto  boot  and  to  alloe  loading  of  aaeory  froa  another 
vQS27Goe  ooeputer  via  the  dual  uart  card,  the  loading  proa  inhibits  the 
v082feaa  see  of  the  reset  location  because  of  the  location  of  the  code  and 
v0829baa  the  interrupt  loactione  used  in  a  debugger  for  the  prolog  systee 
^K)930oelc  raaptr«163M 
vOSSlcalc  riptr"32735 
v0532incl  h. processor  in) 
v0533incl  h.cordcags  <ii) 

^)Q3tbegin  stext 
vOS35| 

vOS36|  zilog  z-60  based  systee 

v0837| 

v083Bt  fidsacl 
vOS39{  lideacl 
vOStOi  lidlacd 
v0541| 
vd842; 

V0843.I80 

vOS44asag 

v094Sorg  (ra^itr)  iras  pointer  is  pointing  to  top  of  eenory  -  stack 

vdStdletahtdeft  32  I  32b  define  stack  area 

^KI947org  (roaptr)  ihsgin  code  after  reserved  interrupt  area 
vCStMeoldild  ap,Vstalt»32  {30  lOt  3b  initialize  stack  pointer 

id)B49Hi  {la  4t  lb  disable  aaskable  interrupts 

vOBSOjp  MUnitlk)  |3n  lOt  3b  do  hardware  initializations 


vOaiindteiit 


vMEBctlc  rcmtrfftr*? 

MOra^tM  (rflt,ar|l,arg2i0,16,0, 16,0, 16i31, 126,37,ia,0,SS3,S71) 
vOBBtan  priaitivt  to  add  argl  and  ar^  and  start  in  rslt 
^MBBbmin  staxt 


vOSBUdhl,  ((argl)){3n 

16t 

3b 

load  argl  in  hi  pair 

vOBSTld  be,  ((arg2))|6a 

20t 

4b 

load  arg2  in  be  pair 

vCBBBld  a,  1 

{!■ 

4t 

lb 

v08)9add  a,  c 

4t 

lb 

add  tab 

vOSBOld  1,  a 

<!■ 

4t 

lb 

vOSblld  a,  h 

{!■ 

4t 

lb 

v08B2adea,  b 

4t 

lb 

add  asb 

vOB631d  h,  a 

{!■ 

4t 

lb 

V0B64JP  po  ,«alS 

i3i 

lot 

3b 

if  no  overfloM  store  result 

v086atjpc  ,8*9 

lot 

3b 

if  carry  the  aaxiaize  einus  rslt 

vQ9661d  hi,  Tfffh 

{3i 

lot 

3b 

put  in  largest  positive  value 

v()967jp8«6 

|3i 

lot 

3b 

vOObSld  hi,  aooOh 

lai 

lot 

3b 

put  in  largest  negative  value 

v08691d  ((rslt)),hl|Sa 

16t 

3b 

save  result 

«C870andt«t 

vOSTlealc  naptr^roaptri-ai 

tdlSTSkauipi  (var,datai0,a,0,8i6,26,8,7, 0,372,579) 

vOSTScot  priaitivt  to  asfi|n  a  valut  of  ont  variablt  to  anothar  variable 
vOS74eaa  listavar,data-varivar-firec,data-prtC!stor,titt,ext,calc, incl,addr 
vOSTShqin  itait 

>d)S761d  a,  ((data))  |ta  13t  3b  assign  (data) 
v08771d  (<var»,a  }4i  13t  3b  to  (var) 

vOS78mdtert 

tdBTfcalc  rotptr  miaptr  *  6 

vCSaOkastip  (var,data:0, 16,0, 16i6,32, 10,7,0,380,387) 

vOSBlooa  priaitivt  to  assign  a  valut  of  ont  variablt  to  another  variable 

^dBPawa  list*var,data^arivar-|irac,data-prtc:stor,tiae,txt,calc,  incl,addr 

v09B3bqin  stent 

vOOMld  hi, ((data))  |Sa  16t  3b  assign  <data) 
vOSISld  (War)), hi  {St  16t  3b  to  (var) 

vCSBEendtent 

vC887cale  roaptr  ^ftaptr  *  6 
vOSNkproc  (naa  til,4, 1,7,0,388,395) 

^MBScoa  priaitivt  to  defini  proctdure  antry  poinp 
v<l99lleai  liit^ptuc  mat  iaaptytttoragt,tiat,tiit,calc,incl,addr 
v0991bqin  stent 
v(HK|prooedtrt  (nan) 

v09ni<nai)i  nop  ;li  4t  lb  entry  point  for  (nan) 
vOBMandtanl 

vCSSBctle  fcapti'^oaptr*! 

vCBSfakOona  (nan,val,  tO, 811,0,0,6,0,396,602) 

vOSfTtooa  priaitivt  to  define  data 

vOBUcoa  Ustadetat—, valui’ivalut-prtc,stor,tiee,ent,c, i,addrs 
vOSHbagin  sinnt 

v0600<nM)i  defb  (val)  {reserve  one  byte  for  data 
vCIOltndiMt 


vOfiOficilc  naakrapoaDtr+l 

(fne,t«ik  ::  10, SI,  IS,  10,0, 603,613) 
yOiOtaai  priaitivt  to  add  om  intry  to  wmitor  table 
tdWOQEOB  lift*  ftiBc  w,  talk  naei:n|ity  :s,t,  a,  c,i,  address 
sQiMbaiiit  ttext 


vOiOlTcall  8<fhc) 

iSi 

17t 

3b 

test  for  contirqency  (fnc) 

v060lld  a,«fnc)) 

l4e 

13t 

3b 

get  contingency  result 

v0609cp  llllllllb 

4t 

lb 

check  if  result  true 

v0610call  t,l<taak)  {Ss 

t7t 

3b 

if  true  execute  task 

«0611  ;if  not  true  get  next  tabent  or  tabend  to  loop 

vOSiaandtext 

\d)613Ealc  rooptr«rooptr«10 
v«614f.tabaccpe  ,  ,  ,0,0,614,62S) 

vOUSen  this  is  a  diMBy  prieitive  to  alloe  coepatibility  with  the  8080 
td)616oae  librHy.  the  functions  that  eould  be  parforeed  in  this  prieitive 
vOSlTteoe  are  all  located  in  s.tabant.  this  has  the  effect  of  elieinating 
v0618cei  intanadiate  table  and  increasing  execution  speed,  if  there  are 
v0619coe  Midi  variations  in  contingency/task  spaeds  sore  eeeory  Mill  be 
v0620cai  than  in  the  8000  prieitive.  note  s.nain  is  also  changed  because 
v0621om  of  the  elinination  of  the  intereediate  table 
v062Scoa  list*  func-we,  task  niBeifapty:s,t,e,c,i, address 
^KXSAsgln  atext 

vOiSt  I  this  apace  is  deliberately  void,  this  is  a  duaiy  prieitive. 
v0i2Ssiidtast 

v0686a.var  (nMatO, 8:0, 0,0, 3, 0,626, 634) 

v0627icaB  prieitive  to  define  storage  for  8  bit  variable  integer  or  logical 
v062Bcoe  listndata-nase,value:value-prfc,stor,tiee,ext,c, i,addrs 
v0628eale  raeptr«ranptr  >  1 
vO630begin  stext 

v0631arg  (raeptr)  )8  bit  variable  inane)  in  ran 
v0632<nBiB)i  defb  0  |0n  Ot  lb 

v063Jar|  (raeptr) 
vOOtsndtext 

v063Ss.sub  (rslt,argl,arg2t0,8,0,a,0,8t23,87,aS,14,0,635,649) 

v0636cae  prieitive  to  subtrvt  arg2  free  argl  and  store  in  rslt 
v0637lDae  list*  rslt,argl,arg2tprecisions:s,t,c,c,i,a 
^K)638bogin  stext 


v06391d  a,  ((argl)) 

13t 

3b  load  argl  in  accuaulator 

v06401d  hi, (arg2) 

lot 

3b  point  hi  to  «rg2 

v0641aub  (hi) 

lai 

7t 

lb  argl  -  arg2 

|3b 

lot  3b 

if  no  overflcH  store  result 

v8643jpc  ,0«8 

l3b 

lot  3b 

if  carry  the  eaxiaixs  ninus  rslt 

vOIHld  a,01111111b|a: 

7t  2b 

put  in  largest  positive  value 

v0i49jpO*5 

!3b 

lot  3b 

v06461d  a,10000000b  (di 

7t  2b 

pvt  in  largest  negative  value 

v064nd  ((rslt)),a 

il3t 

40  3b 

save  result  of  add  in  rslt 

vWlendtext 

v064kalc  ronptr*T(iptr«23 

vOaOs.aub  (r  ilt,argl,ar«2iO,  16,0, 16,0, 16:31, 126,37, 19,0,680,669) 
vOaiGoe  prieitive  to  subract  arg2  fron  argl  and  store  ansHsr  in  rslt 
vOBBm  list^lt,argl,arg2:prscisionB:s,t,s,c,i,addr 


01^ 

|l 

4= 

ii 

16t 

3b 

load  argl  in  hi  pair 

vonidbc,  ((arg2)) 

{fi¬ 

20t 

4b 

load  arg2  in  be  pair 

voaid  a,  1 

ll* 

4t 

lb 

vOeTMc 

{1- 

4t 

lb 

sobrtract  lib 

vOOIld  1,  a 

H- 

4t 

lb 

v06991d  a,  h 

{1- 

4t 

lb 

v0660ibc  a,  b 

|1- 

4t 

lb 

fubtraet  eeb 

v06611d  h,  a 

{!■ 

4t 

lb 

V0662JP  po  ,0»1S 

{3- 

lot 

3b 

if  no  overflOM  etore  result 

v0663jp  c  ,0*9 

{3- 

lot 

3b 

if  carry  the  naxinize  sinus  rslt 

v06641d  hi,  Tfffh 

|3i 

lot 

3b 

put  in  largest  positive  value 

v0665jp0«6 

l3i 

lOt 

3b 

v06661d  hi,  aOOOh 

)3i 

lot 

3b 

put  in  largest  negative  value 

v0ifi7M  ((nit)), hi  ;Si  l£t  3b  mw  mult 
«066an4t«t 

v066SBilc  raiptr«mptr*31 
u0670i.«itpr«  (itM  t:  1,10, 3, 6, 0,670, 676) 

¥0671e«  printivi  to  clou  proc 

y067aNa  lift-proc-m,  contnaisMiity:  ftorago,  tin,  wt,ctlc,incl,iildr 
v0673bmiR  ftnt 

«0674rat  )3i  lOt  lb  return  to  ■cmitor,exit  (n«) 

vOSTSMdteit 

u0676oilc  rcMptrntaptr^l 

v0677iiOOM  (iiMhvel,  :0, 1612,0,0,6,0,677,663) 

v067Ioh  prirnmn  to  define  deta  for  16  bit  integer 

uOSTIcai  liet-data-ni«,valuB:valut-prec,etor,ti*,eKt,c,i,addrs 

v0680bifin  cteit 

x06ai(n«)i  defo  (val)  {define  a  tno  byte  integer 

uoeiandtnrt 

u0663cb1c  roeptrTwgitrte 

v06l4i.var  (mmi0,I6i0,0,0,3,0,6B4,692) 

prieitive  to  define  etorage  for  16  bit  variable  integer 
vOiKcoi  liet-data-fii«,valwival<»iirec,ftor,tiBe,e»t,c,  i.addrs 
vOiaTbalc  raeptrmaptr  -  2 
v0606bagin  etext 

v0669org  (raaptr)  )16  bit  variable  (naee)  in  ran 
v0690(naH)i  defo  0  {Oe  Ot  2b 
v0691flrg  (roaptr) 
v06nndtext 

vOiSlhloe  (loc  111,4,1,6,0,693,699) 

vOnteoa  prinitivf  to  define  a  lable  (location) 
v069Scm  liet-label-nm  leeptyi  etorage,  tiee,  ext, calc,  incl,addr 
vOtHtailR  itext 

vOI97(lec)i  nop  {  define  location  (loc) 

vOiSiMitart 

id)i9kalc  ruepiifonptrH 
vOTOOkend  (113,10,3,8,10,700,710) 

vOTOlcoa  prinitive  to  end  eoftnve  lifting  mi  conplete  iaplcnentation 
vOTOem  lielmptyiontyt>tor,tiBe,ext,calc,inci,ad<k* 
vOTOSbegin  etent 
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F/G  9/2 


NL 


«<l7IMMUiiitlli>tjp  lipw  |3i  lOt  3b  initiilization  of  hanhurt  it  conplott 
tKnns  I  ftirt  top  of  Hin  miitor  loop 

ind  of  wftMrt  lifting  rtady  for  ffiobly 

fWWbniUft 

fflVQIetlc  raiptr<nroiptr«3 

fOnSuai  pit  in  wman  umiM  for  iiplMitation  in  rai  and  roa 
vdTIUnel  Kwmont  (<<> 

«0711i.japf  (val.loc  i0,8i  8|30,ab^0|711,719) 

vOTISom  priaitiM  to  branch  on  falia  condition 

^3baa  liitavalw,  jaap-loet  valut-prac,  istoraga,  t  iaa,  axt,  calCi  incl,  addr 

ymtb^in  flait 

vOTlSld  ai«wal»  {ta  13t  3b  branch  to  (loci  if  (vail  if  tnw 
vOflficp  0  lai  7t  2b 
V0717JP  I,  (loci  t3i  i(M  3b 
vOVIflandtoft 

vOTlkalc  raaptr«roaptr4« 

«0780a.aaaitor  (111,4,1,7,0^720,7271 
tdlTSlooa  priaitivt  to  dafina  p2  aonitor  an  controllar  fopnrvifor 
vOTSacoa  lift  >  «ptyi«pty:  atoraga,tiaB,aiit,ealc,int,addr 
tdl72Aagia  ftaiit 

v07E4|  aaonitor  factions 

vOTESkpwinop  {la  41  lb  aarfc  top  of  tht  polling  loop 
vOTHtandtaat 

tdlTETcale  ro^ptr^roaptr^l 
v078to.taband  (  ii  3,10,3,6,0,^7341 
vOTBSboa  ffbroutina  to  difina  and  of  aonitor  tabla 
tdlTllDOB  lift*  «ptyi«iptyif,t,a,c,i,addr) 
tdlTSlbmin  ftaKt 

v0731^p  ii^mr  igo  to  tha  top  of  the  polling  loop  of  aonitor  tabla 
vOTSMtaat 

tdl734oBle  roaptr«ra^trt3 

vOTSSkaalt  (rf  It,  vgl,  v^i0,8,0,a,  0, 8i3S,S28, 138, 22,0, 735,7571 

tdl736ooB  binary  aaltiplication  priaitiva 
vOTSTbagin  ataat 


v073Bld  a  ,((arglll|3n 

13t 

3b 

pvt  argl  in  a 

vOTSIld  a,  • 

Ita 

4t 

lb 

v07401d  a,((arg211|3i 

13t 

3b 

load  arg2 

«07411d  hi,  0 

lot 

3b 

claar  ra  It 

v07421d  d,  h 

4t 

lb 

claar  d  for  ihiftf 

y07431d  K  7 

lai 

7t 

2b 

tat  coantar  to  Tbitf 

v0744rra 

ll« 

4t 

lb 

vOTOOiip  nc,0*4 

lot 

3b 

«0746add  hi,  da 

111 

lit 

lb 

v0747!ila  a 

8t 

2b 

v0748rl  d 

8t 

2b 

v(1749djnz  $-9 

l3b 

13t 

2b  *7  ^  8t  on  laat  tiaa 

WlTSOrra 

!!■ 

4t 

lb 

vOTSljp  nc,  $«6 

|3i 

lot 

3b 

v07S2and  a 

111 

4t 

lb 

vOTSSabc  hi,  da 

|ta 

ISt 

2b 

v07541d  a,  1 

111 

4t 

lb 

trvicata  raoult  to  8 

«<n9BM  ((riU)),a  |4a  13t  A  Mvt  rmlt 

«079MtfRt 

vWSIoile  rM>twoi|tr»a5 

«0nk.Mlt  (rtlt,ar|l,  V^IO,  0,8t3«,S27, 138,21,0, 7S8, 779) 


vOTOSboi  aaltlply  2  8  bit 

iMibai 

•  and  aat  16  bit  rnault 

vOTMbagin  ataat 

\i07611d  a,((ar|l»|aB 

13t 

3b 

put  argl  in  a 

v07621d  a,  a 

itM 

4t 

lb 

«0»31d  a,f<ar|2))|3a 

131 

3b 

load  ar|2 

««764U  hi,  0 

Ik 

lOt 

k 

elaar  rslt 

«078Sld  d,  h 

Ik 

4t 

lb 

elaar  d  fOr  kifts 

sOTttld  b,  7 

ik 

7t 

2b 

aat  coantar  to  Tbits 

vOTiTtra 

|k 

4t 

lb 

«07i8jp  ne,b*4 

|k 

lOt 

k 

vOlilBddhl,  da 

Ik 

lit 

lb 

vOTTOda  a 

Ik 

8t 

2b 

«0771rl  d 

|k 

8t 

k 

vOTTaijia  a^ 

|k 

13t 

2b  «7  ‘tk  8t  on  last  tins 

vOTTJrra 

|k 

4t 

lb 

v0774jp  ne,  a«6 

|k 

lot 

k 

sOTTOand  a 

Ik 

4t 

lb 

vOTKabe  hi,  da 

|4t 

ISt 

2b 

mOTTTU  «rslt)),hl|SB 

16t 

k 

sm  rasalt 

¥0TT8wIImI 

«077)Dile  roiplrTOiptr»3» 

vOTMhHlt  (nlt,ar|l,«^iO,  16,0, 16,0, 16i39, 1100,283,22,0,780,802) 
vOraiCM  Mltioly  2  16  bit  imtm  airi  grt  16  bit  rtwlt 
lOIKbqiii  atiHt 

«0783M  8it«V|l)))6a  20t  4b  pvt  argl  in  dt 

V07I4M  bc,(l«|2»|to  20t  4b  load  V|2 


vOTHld  a,  b 
sOTKld  hi,  0 
vOTSTld  b,  ISd 
v07l8rra 

Ik 

|k 

|k 

|k 

4t 

lot 

7t 

4t 

lb 

k 

2b 

lb 

split  arg2  to  ale 
ckar  rslt 

sat  oovitar  to  Tbits 

«07S»t  c 

|k 

8t 

2b 

vOnOjp  nc,  0*4 

|k 

lot 

k 

sOTSladd  hi,  da 

|k 

lit 

lb 

v073Bila  a 

Ik 

8t 

8b 

«0733rl  d 

|k 

8t 

k 

vCntijM  O-OObh 

|k 

13t 

k  a?  *k  8t  on  last  tiaa 

«073Bfra 

Ik 

4t 

lb 

vOTSrr  e 

Ik 

8t 

k 

id)737jp  nc,  0*6 

|k 

lot 

k 

«0788Mda 

|k 

4t 

lb 

vomibehl,  da 

|k 

ISt 

k 

vasooia  i(rtit)),ni|ai 

161 

k 

siva  raaalt 

vObOlaadtwt 

vObOBealc  ronptrTOiptrtJS 
«0803b.idiilattart(top,lpetiil,4,l,6,0b803,814) 

«0804oh  priaitiva  to  aatabliab  labal  ftr  top  of  a  idillnio  loop 
^dWSeoi  condition  to  b»  taotod  iaaodlattly  follom  this  labal 


vOMioai  ri^  it  |lobtl  vtriabli  ined  to  oceoimt  fw*  tiling  during 
Hltiplt  loopi 

uOIOlDai  Ipet  it  mi  loop  oo«t  tupplivl  liy  dHignir 
udMiitlt  pHh  rapt 
uOUteilc  rapM<lpct> 
uOltUNgin  ttMt 

u0812(top>tnop  {!■  4t  lb  top  of  idiili-do-loop 

vOSiandtnt 

uOUtoilc  rooptfraMptr+l 

vOSlSkthilMOn  (rtlt.botiO, 8:7, 27, S,a,0, 813,823) 

:M1Ccm  priaitivt  to  dicidi  riwthor  to  joip  out  of  Hhilt-do  loop  biMd 
uOllTtoM  on  boolOM  volra  piMHi  to  rtlt  bot  it  loop  botton  labil 
uOUIbigln  ttart 

vOlinda,«rtlt))  |4i  13t  3b  git  boolran  voluo 

uOKOMd  I  111  4t  lb  efiick  if  truilffh)  or  foltiiOOb) 

vOIBljp  2,  (botl^S  |3l  lot  3b  if  filM  juip  out  of  idiilo-do  loop 

uOaBScile  rtaptr^nMpti^7 

^d)mt.idMnd  (to^hotitS,  10,3,4,8,820,832) 

¥0823001  priiitivt  to  Hrfc  ari  of  otitoMnti  to  bi  nicutod  in  a  uhili' 
¥082(001  do-loop  global  uariablo  rapt  it  ratit  to  valui  iiiiting 
^tOKIem  btfora  fdr-loop  ttartid 
¥0828cale  pop  rapt 
¥0829b4in  ft«t 

:d)838<bot)tjp  (top)  {31  iOt  3b  j«ap  to  top  of  idiili-do  loop 
¥083lMdtMt 

¥0832cale  t¥apti«rapti^3 

¥0831t.ra  (ralt,  wgl,ar^t0,8,0, 16,0, 18:18,91,28, 13,0,833,848) 

¥0834001  priaitiM  to  parfOri  oaporitioR  bitmin  2  18Hiit  mabirt 
^ItBBem  littaraiilt,MguHiit  1,  argurant  2  ::ttor,tiM,ixt,c,i,addrt 
¥083ibqiii  ttwt 

¥083710  di,(<wgl))  }8i  20t  4b  if  «^1  >  arg2  thin  rtlWfh  dM<argl) 

¥083114  hl,((ar^)  |Si  18t  3b  hl>(arg2) 

¥0839a:d  a  |li  4t  lb  riHt  carry  flag 

¥08Mibe  hi, do  |4i  19t  2b 

¥081110  a,0  !&:  7t2b 

¥0842)r  2,  8*3  |3b  12t  2b  ratult  aqual 

¥0843epl  111  4t  lb  rrailt  not  aqual 

uObHld  «rtlt)),a  |4i  13t  3b 

MtSMdtmt 

uObtiealc  ramtr>roiptr*ll 
¥084711. procMior  (::  ,  ,  ,2,3,847,871) 

:dM8BH  priiiti¥i  to  inoludi  2-80  opu  board  4  rta 
uOHictlc  ilot  ■  tlot  *  1 
¥08BI)iwl  lutoordcap  (::) 

¥0051bqin  btont 

^dMB2  put  2-80  cpi  board  in  tlot  (tlot) 

¥0833  HHi  hi#i 
¥0(04  Ht  jrapMt 


in  thi  folloiing  pattirn 


voe? 


vOtSI 

a3 

001 

aOBI 

at 

010 

aon 

mB 

1 

aOKO 

a6 

001 

aOKl 

a7 

01 

aOC2 

aS 

110 

aOKS 

a9 

1111 

a0664 

alO 

1 

aOMS 

ai2 

101010 

aOI66 

al3 

10 

a0li7 

alt 

10 

aOI6B 

alS 

01 

«OKS  note  naharina  it  frn  lift  to  ri|iit  and  froi  top  to  bottMk 

vOno  iddriM  ipMi  000d-7f  ff 

tOmadlirt 

vM7ai.ca*i|i  in  ,  ,  ,0,0|S72,I76) 

vMTSdm  priaitiM  to  itelidi  card  ctgi  and  poMr  tiipply  for  controllr 
vOrttaiin  fitnrt 

¥Ctf5  conmct  pommpply  to  card  cap 
vOfliandtwt 

«OI77h.MBry  (ii  ,  •  ,2|3|877,I97) 
vOmta  piiitivi  to  inelndt  rpoiral  ■nry 
vOITkalc  tilt  a  tlot  *  1 
vOmincl  (uteardcap  (:>) 
vOMlif  naptr  .It.  raptr  ikip  S 
vOtKhi|in  htnt 

tiOIB3  tlw  progran  apaei  and  ttw  variPlt  tpan  haw  colidad 
tdllll  yw  do  not  havt  anoa#i  ■■ory  to  anciti  yoar  progran 
«0M5  yoar  aaory  it  liaitad  to  16k 

yOMTbagin  htwt 

vOM  pirt  16k  awry  board  in  tlot  (tlot) 

vOM  Mt  janpart  in  thi  folloaing  pattam 

aOno  jaapar  pattam 

aom  al  Ilium 

aMK  te  10 

aOlB  aS  0 

vOIM  at  01 

aOM  aS  1 

aO06  addraat  ranp  ftr  card  it  t000>7fff 

aOnMtait 

aomutevdcap  (n  ,  ,  ,0,0,M,10t) 

aOMM  prialtiai  to  liait  tha  naabar  of  tloli  in  card  cap  to  B 

aONOif  tlot  .lib  I  fkip  4 

aOmbagin  htaat 

aONK  yoa  haai  aacaadp  tha  miaia  naabar  of  alloaabla  tloti  in  tha 

aOm  card  eaga.  it  it  linitp  to  6. 

aOBOtairitaat 

aOmB.diaida  (rtlt,ar|l,argglO,S,0,^0,8t36,904, 129,41,0,905,346) 
aOMeon  raatina  to  diaiP  argl  by  and  atom  in  rtlt 
aOBOTcoa  tahan  fkron  lakt  p  137 
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vOMb^in  staKt 
«OiOll«  a,  ((»|1))  114 

a  {la 

voniu  h,0  lai 

»«l«»  h  M  1^ 

«OM3fcpl  }la 

vOn4iK  a  (la 

«09191d  hiOaOh  tai 

«09UU  §1  a  {al 

vOMTId  a,  «ar|2»  ta4 
vOMIaad  a  ;la 

vOnSjp  p,  dHIbh  {3a 

vOSeOcpl  {la 

vOaeilK  a  {la 

vOMBld  e,  a  (la 

tioaesid  a,  oeoh  {&§ 

«<«4aor  h  {la 

vOSSld  h,  a  {la 

vOdttld  a,  c  (la 

«OC71d  C|  a  (al 

vOSIaor  a  (al 

«0«91d  b,  B  (tf 

«O930rl  a  (aS 

^Ifla  {al 


prt  dividBiid 


{!■ 

lai 

4t 

7t 

lot 

lb 

2b 

3b 

4t 

lb 

iia 

4t 

lb 

1^ 

7t 

2b 

l«l 

t4 

bl 

)  {b4 

tl3 

b3 

pat  diviaor 

;!■ 

4t 

lb 

l3i 

lot 

3b 

4t 

lb 

Ita 

4t 

lb 

Ita 

4t 

lb 

7t 

2b 

Ita 

4t 

lb 

4t 

lb 

4t 

lb 

ill 

t4 

bl 

!■! 

t4 

bl 

claar  aocaanlator 

t7 

b2 

lat  loop  coontar 

lie 

tB 

b2 

rotata 

111 

t4 

bl 

i«i 

t4 

bl 

trial  aabtract 

)«3 

tlB 

b2 

lufatract  oh 

(al 

t4 

bl 

rattora  accaB,Bat  cy 

(b3 

tl3 

b2 

a2  tB  on  laat  loop 

(al 

t4 

bl 

pat  raaaindar  in  b 

(al 

t4 

bl 

|Bt  quitnt 

{■1 

t4 

bl 

Aift  in  lait  raault  bit 

111 

t4 

bl 

ooaplaaaat  bits 

iSi 

Bt 

2b 

l3i 

lot 

3b 

111 

4t 

lb 

111 

4t 

lb 

II* 

tl3 

b3 

flora  quotiant  in  nit 

vOfSBMbe 
tdM33jr  ac  ,f 
««934adda,  c 
vOSSSdjiB  W 
vOS3lld  b,  a 
iKMSnd  a 
«OS38rU 
vOBSepl 
W940blt  7,  h 
¥0941jp  z,d*S 
vOMSepl 
^i0943iic  a 


vOSISmltaKt 

v094Ccalc  roaptr^'<aptr»aB 

ti0947b.dividB  <r«U,ar|l,arietO,  1S,0, 16,0,16tl0, 14fi5,376,57, 0,947, 1004) 

vOMleaa  priaitlw  to  dlvida  ar|l  by  arg2  and  ttort  in  nit 
yOMBCoa  Uat^lt,ar|l,ar|2ipricisioniis,t,t,c,i,addr 
yOMaiia  atait 

iMBUd  M,  «ar|l)){9a  Ifit  3b  load  argl  in  hi  pair 

vonut  7,  h  (Ba  Bt  Bb 

vOSOUd  b^O  (di  7t  Bb 

vOntjp  z,  HIB  {3b  lot  3b 

vOSOBld  a,  h  {la  4t  lb 

tiOMepl  (la  4t  lb 

vOSBTld  h,  a  (la  4t  lb 

vonid  a,  1  (la  4t  lb 


vOSSlBpl 

lla 

4t 

lb 

vOMM  1,  0 

ll« 

tt 

lb 

vMUiochl 

111 

fit 

lb 

yOMOd  b,  oeOh 

iSi 

Tt 

2b 

vOKSlddik  ((ar|2»|te 

20t 

4b 

load  ar|2  in  be  pair 

vOSBtMt  7,  d 

Idi 

8t 

2b 

vONSldo,  0 

7t 

2b 

vOWjpi,  0»12 

iSi 

lot 

3b 

vOKfldi,  d 

4t 

lb 

yOSSacpl 

)!■ 

4t 

lb 

vONSldd,  a 

It- 

4t 

lb 

yOSTOlda,  e 

il> 

4t 

lb 

v0971cpl 

ill 

4t 

lb 

v09721do,  a 

111 

4t 

lb 

«OS73iflC  do 

in 

fit 

lb 

«09741d  a,  OaOh 

7t 

2b 

yOOTSoor  b 

111 

4t 

lb 

yOnieo  af,ar 

111 

4t 

lb 

eaw  iigh  of  nit 

vOOTTlde,! 

lH 

4t 

lb 

«097lld  a,h 

111 

4t 

lb 

«OI791d  b,  lU 

lai 

7t 

2b 

yOaOM  hi,  0 

1^ 

lot 

3b 

vOMlrl  c 

1^ 

at 

2b 

loop 

vOa2rU 

111 

4t 

lb 

yOMSade  hi,  hi 

i%i 

ISt 

2b 

y09Mabehl,do 

1^ 

ISt 

2b 

yOOBijr  ne, 

|3l 

12t 

2b 

eab  naa  ok 

y0986addhl,  do 

1^ 

lit 

lb 

nitoro  accoNlator 

vOOlfGBf 

111 

4t 

lb 

calc  roMlt  bit 

yOWdjni  f-11 

|3i 

13t 

2b 

di  fit  on 

v0989rl  c 

Ifti 

fit 

2b 

y0990rla 

111 

4t 

lb 

y09911d  h,  a 

lH 

4t 

lb 

vOOSld  I,  c 

111 

4t 

lb 

y0991n  af,af’ 

lH 

4t 

lb 

rortoro  ii|n  of  nit 

vOIOIjp  p,  0«10 

|3i 

lot 

3b 

vOnSlda,  h 

111 

4t 

lb 

yOMcpl 

111 

4t 

lb 

yOnndh,  a 

111 

4t 

lb 

yOMlda,  1 

lH 

4t 

lb 

vOllkpl 

in 

4t 

lb 

vlOOOld  1,  a 

111 

4t 

lb 

vlOOliae  hi 

m 

fit 

lb 

vlOOeid  «rfflt»,hl)Si 

Ifit 

3b 

eavo  neult 

vlOOMtrt 

vlOOtellc  r«vtr«roqitr*flO 
vlOOSkClock  (i:  ,  ,  ,0,0,1005,1081) 

vlOOScM  priaitivt  to  crNtt  «t  clock  in  th*  etc  chip  of  the  z80  cp«  board 
ylOOTbiiin  htoit 

vlOOS  thiw  odditiOMl  coiMCtiom  on  tho  cp«  board  n  roquirod  to 
vl009  ntilia  2  of  tho  3  chamelo  of  tho  etc  chip  the  etc  chip 


vlOlO  opnpitn  at  2  rtii  vici  4  rtiz  for  tht  z-Ma  cpu  tht  folloMing 
vlMl  joipirf  Mill  emm  dmml  0  to  ba  mnni  by  tht  intcniil  Mz 
vlM2  clock  and  channtl  1  to  bo  oorvod  by  tht  output  frot  chamtl  0 

vlOU  thoo  for  taanplt  if  chamtl  0  it  ott  up  to  gtntratt  a  pulst 

vlM4  twry  2000  intarnal  clock  cycltt  and  this  pulit  bocotat  the  input 

vlOlS  clock  tiptal  to  dunml  1  than  tht  not  result  is  channel  1  is  a 

vlOlS  doMHceuntar  tappliad  uith  a  Ikhz  clock  sijnal 
vl017  comoct  jl-20  to  jl-12  this  connacts  channal  0  output  to  channel  1 
vlOlB  input  clock 

vlOiS  jl-lS  to  jl-16  late  of  chanml  0  tiad  to  ground  so  doun 

vioeo  countar  Mill  Mork 

vl021  jl*?  to  jl'iO  gate  of  chamtl  1  tiod  to  ground  so  doMn 

vlOtt  oountor  Hill  uork 

vioes  conmet  on  h12 

vlOB4  1-2  intomal  clock  signal  supplitd  to  channtl  2 

vl02S  7-0  eatomal  clock  signal  suppliod  to  chanml  1 

vlOtt  (actually  the  output  frot  channtl  0) 

«1027  9-10  intamal  clock  signal  suppliod  to  chanml  0 

vtoearndtott 

vl0e».hBydisplay<fi  ,  , 

vUnOeon  prinitiut  to  add  the  7303  kayboard  display  card  this  prinitivt 

vKBleon  it  callad  by  outputport  and  inputport  the  kayboard  and 

vKUacon  digital  display  ftatoros  art  not  usod  only  the  rockar  suithcos 

vlOSlBan  art  oMd  to  control  input  and  the  lads  to  display  output 

vlOMif  ktylrd  .eq.  1  skip  14 

vloaSotlc  koybrd  *  1 

viOJScalc  slot  •  slot  *  1 

vl037incl  Iktcardcagc  (n) 

vl03lbt|in  htuat 

vl039  put  first  Prolog  std  7303  koyboard/di^ligr  card  in  slot  (slot) 

vlOtO  cowet  the  follouing  junpor  pint 

V1041  a6 

V1042  y4 

V1043  zO 

V1044  ll 

viOtS  discomoct  the  follouing  junpor  pirn 

vt04K  all  othars 

V1047  addmo  space  11000000,  11000001 

vlOtOrndteat 

vl(M%.fiartHait  (tiattO,lZ73>13, -5,18,6,0,1049, lOU) 

vlOQOcoa  rootim  to  delay  a  fined  poriod  of  tins  in  incrauants  of  Sat 

v1051ooh  ubk  allouod  input  value  is  i275HB 

vlOOBBon  at  currently  coded  thore  nay  be  up  to  a  lOd  arror  in  actual 

vldSJDoa  tlapsid  tint  uhen  conparad  to  the  input  value 

vi(l54tttr  tim  •(tite>s4000 

vl005calc  scrtch  >(titt)/5 

vlOQSbagin  steat 

V1CS7} 

vlC5l|  uait  (tint)  ■  (for  z80a  4  idiz  clock) 
viOBli 

vlOMld  b,  tartch)  idi  7t  2b  set  value  of  outer  loop  counter 


vlOUM  dt,-l  )3i  lot  3b  valut  by  litich  inner  loop  is  dscrsmtii 

vlOKM  hlylOO  {3ti  lot  3b  storting  costsr  value  for  inner  loop 

vlKSerio  blide  i3i  lit  lb  deer— nt  inner  loop 

vlObtwop  ;le  4t  lb  d— y  inet.  to  eake  inner  loop  >29t 

vlObSjp  c,f-2  |3b  lot  3b  juep  to  of  inner  loop  until  hl>0 

vlOGMjnz  t-S  ;3b2  13t(l  2b  deer— nt  outer  loop  counter  until  b^) 

vlObTbndtext 

vlOfitcalc  roiptr«romtr  *  IS 

vlOI9B.issuevent  (outne:0,BiS,24,7,S,0|10£9,1077} 

vIOTOdm  outputs  contents  of  outne  to  data  port  of  prolog  7303  keyboard 

vl071eaa  card  data  port  is  dOh  value  of  data  sent  can  be  seen  by 

vl072ra  esaeiniag  8  leds  on  7303  card,  one  led  for  each  of  B  bits 

vl073be|in  stent 

vl0741d  a,((otttna))  {4b  13t  3b  get  contents  of  output  variable 
vlOTSout  (0d()b),a  ;3b  lit  2b  output  to  data  poK  of  7303  card 

vlOTBendtest 

vlOTTcalc  roeptr^ne^itr  ^  9 

vlOTIkoutputport  loutna,  tochtO,BiS,29,B,  14, 13, 1078, 1103) 

vIOTScob  tech  is  a  hold-over  frou  the  original  cede  design 

vlOMcoa  it  it  not  used  here  because  the  output  type  of  signal 

vlOBlooe  it  pradeteniined  by  the  harduare  available,  prolog  boards 

vlQBBcoi  layM  it  a  boolean  flag  indicating  if  the  prolog  7303  board  hat 

vlBBScoe  b—  included  already  thit  prieitive  sett  up  the  7303  card 

vlOBtcoi  to  that  contentt  of  outm  will  be  output  to  the  single  data 

vlOBcoi  port,  dOb  to  do  thit  the  variable  east  first  be  created  then  a 

vlOBBem  eontrol  code  tent  to  port  dlh  to  trite  inhibit  the  digit  displays 

vlOB7oai  any  data  value  that  it  output  idll  be  seen  only  on  the  B  Itdt 

vlBBIra  ennl  and  off*0  for  each  of  B  bits  of  the  output  data  value 

vlBIkaB  the  lads  art  cleared  first  in  preparation  for  display  of  nett  data 

vlOBOif  hsybrd  .ne.  0  skip  2 

vioniecl  IbheydieplayCtt) 

vlOHcalc  heybrd  •  hqtrd  *  1 

vlOISBalc  reeptr  «  raaptr  -  1 

vl9Mli|in  st^ 

vlOBBiaats  up  7303  card  so  that  the  oontants  of  <outna>  Mill  be  output 
viOH^  (raptr) 
vl097<outnB)i  defb  0 
vtOMorg  (raaptr) 

vlOBBld  a,  0  I  2b  71  2b  trite  inhibit  the  alphanu—ic  display 

vllOOeut  (Odlb),a  t  3h  lit  2b  sand  it  to  control  p^ 

vllOlaut  (OdOh),a  |  3b  lit  2b  clear  all  lads 

vilOfcedteat 

vtuncale  rcaptr  >  roaptr  *  i 

vllOBe.  input  port  (iiBtai,tachi9,Bi0,Q,0,13,12,U04,112S) 

vtlOSeoi  tech  is  a  hold"Ov«r  fl^  the  original  csde  design  it  is  not  used 

vllOioaa  hare  baea—  the  input  type  of  signal  is  prsdstemined  by  the 

vilOTcoe  7303  heyboard/displ^r  board  is,  a  single  B-bit  data  port  since 

vIIOBdob  no  oontral  code  is  required,  only  the  input  storage  Iwation  is 

vHOBcoe  created  by  this  prieitive  tdwn  aore  coaples  i/o  harduare  is 

vlllOooB  available  this  prieitive  ttill  raqvire  aodification 

vllllcoa  iisNB  is  uhere  the  value  available  at  the  single  data  port,  dOh, 


vUUeoi  Mill  It  latclwd 

YllUbOi  layM  it  a  IooIma  flt|  Miotting  if  tlw  prolog  7303  cant  fiat 

vltl4eai  alivady  ban  inel«M 

vlllSif  laybrd  .m,  0  rtip  2 

vIIIUkI  h.laydiiplay(ii) 

vlllTleale  IqM  *  hqibrd  *l 

vllUcalc  ratpkr  •  ratpkr  -1 

vlU9ba|iii  ftwt 

vil20{  arts  «p  7303  card  m  that  valua  at  data  port  c«  tat 

vll21|  raad  into  limn)  tap  tha  priaitiw  a.ianBacond 

vil2B^  (raaptr) 

vll23<imn)i  dafbO 

vliatori  (mptri 

vllESaadtant 

«112ia.aaiioacend  (imaHt0,2tSB,129,37,44,0,1126,1170) 
vllZTtan  pnpoaa  ia  to  daaonatrata  ability  to  input  data 
vil2fe«  imaa  ia  th*  variablt  that  Mould  nomlly  bi  tha  dapotitory 
vll2lBOi  of  tba  valua  praaant  at  tha  singla  data  port ,  dCh,  on  tha 
vUSOeoi  7303  bayboord  card  for  dnonatration  purpoiat  only  tha  2 
vlUleoi  radar  nitchaa  on  tha  7303  card  ara  uaad  to  control  input 
vlUBDOi  and  ainca  thay  only  control  bita  G  and  7  of  tha  S  bit(0-7) 
vllSScoa  data  port,  a  aatll  oonvaraion  routina  haa  ban  added  such  that 
vllStcn  1  of  4  valuM  Hill  ba  placed  in  imaa  daponding  on  tha 
vllSScn  poaitiona  of  tha  2  rochn  nitchaa  tha  folloning  tabla 


vil3Goon  applin 

a2(lafk) 

si (right)  value  put  in  innaa 

vll37on 

on(up) 

on 

04h 

vil3lcn 

on 

off(don)  03h 

vllJkan 

off 

on 

oat 

vlltOeon 

off 

off 

Olh 

vlltlcn  tbia  allon  n  input  choioa  of  4  diffarnt  valuoa  via  tha 

vtltacn  pro>log  rockar  nitchn  on  tha  7303  kayboird  display  card 
vll43bagin  atnt 

vll44in  a.  (OdOh) 

1  3a 

lit 

2b 

data  port  raid  for  input 

V114SM  b,a 

i  !■ 

4t 

lb 

save  valua  in  b  for  latar 

vli4Gand  ilOOOOOOb 

1  Si 

7t 

2b 

aaak  for  both  nitchaa  on 

vil47cp  IlOOOOOOb 

i  ^ 

7t 

2b 

check  for  both  nitches  on 

VI140JP  i,0«27 

1  3h 

lot 

3b 

if  both  on  thn  juap  don 

viiOSM  a,b 

1  !■ 

4t 

lb 

gat  original  valua  again 

vlUOnd  10000000b 

( 

7t 

2b 

nak  for  left  nitdi  on  only 

vllSIop  10000000b 

1  ao 

7t 

2b 

check  for  left  nitch  on  only 

vliai^  Itf*27 

1  9i 

lot 

3b 

if  left  n  thn  juap  don 

vllSIU  a,b 

1  !■ 

4t 

lb 

get  original  valua  again 

vlOInri  OlOOOOOOb 

1 

7t 

2b 

aaak  ftr  right  nitch  on  only 

vll9Bep  OlOOOOOOb 

1  So 

7t 

2b 

chack  for  rt  nitch  on  only 

vlfilljp  s,0*27 

1  3b 

lot 

3b 

if  ft  n  thn  juap  don 

vllSTMa,! 

1  ^ 

7t 

2b 

both  nitdm  aust  ba  off 

vlOM  «innnl),a 

1  4h 

13t 

a 

both  off,  (innad  •  Olh 

vll9ljp  OHM 

1  3> 

lot 

3b 

jan  to  and  of  routina 

vlliOM  a,4 

1  ft 

7t 

2b 

both  nitchn  aoat  ba  on 

vtlClM  (Unnadl.a 

I  ft 

13t 

3b 

both  o^  (imaa)  >  04h 

vlli^pOaiG 

1  ft 

lot 

ft 

joap  to  and  of  routina 

vllfiSM  «,3  {  Si  71  2b  lift  Mitch  on  only 

vllMld  {  ta  13t  3b  lift  on,  IImim)  •  03h 

vtl4jp  b«t  {  3i  lOt  3b  jiap  to  and  of  routiic 

vlliiM  ai2  I  2a  7t  2b  riifit  Mitch  on  only 

vlliTM  l(lMMl),a  I  ta  13t  3b  rlgtt  on,  (innai)  >  02h 

vtlttnod  I  la  4t  lb  and  of  input  coiwiroion  routini 

vllfibaMMt 

vllTOcalc  roaptr^poaptr  *  X 

vll71i.ftboolMit(top,aaxtattl,'S,  l,ld,&,  1171,  lUl) 

vllTacM  priaitiva  to  airfc  top  of  boolaan  aait  atractara 

v1173bh  top  it  labal  for  bafimini  of  boolaan  wit 

vll74eM  luta  if  aax  tiw  in  ailliaicondt  allowd  to  check  conditiona 

vllTScw  bataaan  f.ttboolaait  and  i.boolMit 

vllTbattr  tiai><aaiitali4000 

vll77call  i.aatiM  (<Ba«ti)t) 

vll7flbapin  ftoxt 

vll79<top)tnop  :1a  4t  ib  aarfc  top  of  boolean  wit  loop 

vllMandtaet 

vilSlcalc  roaptraroaptiHl 

vlia2s.boolMit  (rflt,top,bot:0, 8122,93,26,23,0,1182, 1205) 
vli83coa  priaitiva  to  chack  fbr  boolaan  conditioniif  true  then  exit)  and 
vll84coa  read  current  tiw  froa  channel  1  of  etc  since  clock 
vll8Scoa  continues  to  douncount  past  OOOQh  tiw  interval  expiration 
vll86caa  is  deterained  by  checking  the  sign  bit  of  tha  asb  of  the  2  byte 
vU87coa  clock  tiw  if  it  is  1  then  tiw  has  ixpired  and  tha  boolean 
vllBScoa  structure  is  exited  rslt  is  boolean  value  passed  froa 
vllSScoa  condition  being  checked  top  and  bot  art  labels 
vll90begin  stext 


vllSlld  a,({rslt)) 

)♦• 

13t 

3b 

jp!t  boolean  value 

vll92and  a 

5l« 

4t 

lb 

check  if  troe(ffh)  or  falsi(OOh) 

vll93jp  nz, (bot) >3 

!3i 

lot 

3b 

if  true  juap  out 

vllStld  a,01000001b 

!2> 

7t 

2b 

channelHlatched  readModeOHiex 

vil35out  (0f3h),a 

;3i 

lit 

2b 

send  to  control  code  port 

vll%in  a,  (Oflh) 

53a 

lit 

2b 

read  Isb 

vll971d  l,a 

5l« 

4t 

lb 

save  Isb 

vll96in  a, (Oflh) 

i3u 

lit 

2b 

read  nsb 

vll991d  h,a 

;!■ 

4t 

lb 

save  asb 

vl200bit  7,h 

52» 

Ot 

2b 

check  if  counter  value  has  passed 

V1201 

f 

zero  ie,  becow  negative 

vl202(bot):jp  z,  (top) 

53a 

lot 

3b 

if  counter  value  still  positive 

vl203  ;  ie,  bit  7  =  0  then  go  to  top 

vl204endtext 

vi20Scalc  roaptr»roaptr»22 

vl206s.  call  (nan  :: 3, 17, 5,7, 0,1206, 1213) 

vl207coa  priaitiva  to  call  another  procedure 

vl20econ  li5t=proc-'naM!Mpty;storage, tiw,ext,calc,  incl,  addr 

vlEOSbegin  stext 

vl21C;  call  procedure  <nai) 

vl211call  8<nai)  ;  5a  17t  3b 

vl212erdtext 

vl213calc  rooptr=rciaptr+3 


vl214«.in  (i:  ,  ,  ,9,0,1214,1223) 

vl21Scoi  priiitivt  to  lit  tht  tlnd  bl«k  flif 

vl21fic(»  it  it  Mdtltd  nactly  aftv  Itcol  roit't  f.iii  in  thi  8060 

v1217cm  riilizition  voluw  Ml  it  incltdtd  for  cotplttmti 

vl21lcn  it  dott  not  confoni  to  cmon'i  trwtlitor  output  foraat 

vl219b(Ni  Mi  it  not  utabl*  in  itt  prtHnt  fort 

vt220can  thi  global  variablt  trt)lck  it  tuppottd  to  bt  a  flag  to  indicate 

vl221co«  to  tht  ctdt  progran  that  tha  folloning  priaitivn  conatituti 

vl222coi  a  tiaad  block  tithin  a  tatk 

vl223calc  ttelck«l 

vl224t.ni  ,  ,3,0,1224,1227) 

vl22ScaB  priiitivc  to  clear  the  tiaad  block  flag 
v1226cob  taH  coaents  at  in  s.  in  apply 
vl227calc  ttelck*0 

vl22ah.uart  (::  ,  ,  ,0,0,1228,1242) 
vl229begin  htext 

vl230  this  is  a  diany  priiitivc  to  mind  you  to  put  In  tha  dual  uart  card 
vl231  if  you  uish  to  use  the  nps  loading  roii  tha  raquira  tatting  arc  at 
vl232  folloMS. 

vl233  set  jugian  th*  folloiing  pattern 

vl234  Jtapar  pattern 

V123S  Ml  01 

V1236  m2  01 

V1237  m3  10 

vl23a  sx  0001 

vl239  sy  00001000 

vl240  address  space  aO  thru  a7 

vl241endtcxt 

vi242con  this  has  to  be  the  last  line 


APPENDIX  P 


WORKING  CSDL  TEST  PROGRAN 


This  appendix  contains  a  problaa  to  taat  tha  prlaltlvas 
that  ganarata  a  whi la-do  loop.  Thla  problaa  waa  conplataly 
run  through  CSDE,  from  CSDL  problaa  atataaant  to  oparatlng 
prograa  on  tha  Pro- log  alcrocoaputar .  Tha  filaa  liatad 
balow  ara  unadltad  axcapt  for  tha  prialtiva  liat,  whara  tha 
valua  of  aax  loop  count  waa  aovad  froa  'a.whllacon'  to 
'a.whilaatart' .  Thay  ara,  in  ordar,  tha  CSDL  problaa, 
prialtiva  Hat,  application  tiaing  fila,  ayabol  tabla,  CSDE 
aoftwara  output,  CSDE  hardwara  output,  and  CSDE  dabug  fila. 


CSDL  Problaa 


IDENTIFICATION 

DESIGNER  :  “BOB  VOGEL“ 

DATE  ;  “02-07-85“ 

PROJECT  ;  “WHILE  DO  CONTRUCT  TEST” 


DESIGN  CRITERIA 

HETRIC  FIRST; 
VOLUMES  1; 
MONITORS  1; 


ENVIRONMENT 

INPUT:  ARG1,8,TTL;  END  INPUT; 

OUTPUT:  LIGHT,8,TTL;  END  OUTPUT; 

ARITHMETIC:  EACH1,8;  EACH5,8; 

END  ARITHMETIC; 

PROCEDURES 


FUNCTION  EACHl: 

BINARY,!; 

EACHl :-0; 

SENSE  <ARG1>; 

IF  ARG1<«2  THEN  EACHl :>-l;  END  IF; 
END  EACHl; 
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Pro-Log  Corporation*  STD  Bum 
Product  Catalog.  Auguat  1962 

Zaks,  R.,  Proaraaainq  tha  Z6Q 

Pro- Log  Corporation,  7303  Ka 
1961. 


Lipschutz,  S., 


Ross,  A 

Bsssd  Control Isrs.  Ph.D.  Thssis,  University  of 
Cslifornls,  Dsvis,  1978. 


Lswerencs  Liversore  Laboratory  Report  pre-print  UCRL 
78651, 

Control  Svtess.  by  H.  N.  Nateian,  21  Aug  1976. 


Environsent.  H.S.  Thasis,  U.S.  Naval  Postgraduate 
School,  Hontsrsy,  California,  June  1984. 


8.  Carson,  T.  H.,  An  Input  Translator  for  a  Cosputsr- 
Aidsd  Design  System.  H.S.  Thesis,  U.S.  Naval 
Postgraduate  School,  Monterey,  California,  June  1984. 

9.  Riley,  R.  P.,  Control  System  Design  Language 
IsDlesentation  of  a  Gas  Turbine  Starting  Controller. 
N.S.  Thesis,  U.S.  Naval  Poatgraduate  School,  Monterey, 
California,  June  1984. 

O.  Lawrence  Liversore  Laboratory  Report  UCID- 17318, 

Methf>dolQqv  end  Planning  for  a  Microprocessor-Oriented 
Reel  Time  Controller  Design  Automation  System,  by  M.  N 
Matelsn  end  R.  J.  Smith, II,  4  November  1976. 

1.  Zaks,  R.,  From  Chios  to  Systems;  An  Introduction  to _ 

BigrpprgfitftQFio  Sybex,  1981. 

2.  Poole,  J.,  The  CSPE  Network.  N.S.  Thesis,  U.S.  Naval 
Postgraduate  School,  Monterey,  California,  March  1985. 


9.  Syntax  arror  nasaagaa  auat  ba  nada  aaaiar  to  undaratand. 
An  axaapla  ia  tha  aaaaaga  “axpactad  ayabol  liat 
followa**,  whara  tha  axpactad  ayabol  list  that  followa  is 
a  aaaninglasa  string  of  lattara  and  other  characters. 

10.  CSDL  and  tha  Translator  should  ba  modified  to  allow  more 
than  one  axprasaion  between  s.stboolwait  and  a. bool wait 
whan  a  boolean  wait  construct  is  specified  by  a 
designer.  This  would  make  it  possible  for  the 
condition  being  checked  during  a  boolean  wait,  to 
change . 


••etion  and  praclaion  for  Intogor  variablo 
auat  ba  aovad  from  arguaant  aaetlon  to 
erltaria  aaction 


W  .  W\ 


currant : 

a.waltlaaat  (0TO1,8:SOO> 
ahould  ba: 

a.waltlaaat  (0702, 0701, 005, aoe.SOO, 1500:8,8) 

1  2  3  4  5  6 

1  —  varlabla  to  ba  uaad  for  loop  countar 

2  —  varlabla  containing  Intagar  raault 

3  —  top  labal 

4  --  botton  labal 

5  --  tlaa  parlod 

6  --  max  allowad  tlaa  parlod 


2.  7ranalator  coda  ahould  ba  aodlflad  to  handla  tlaa  unlta 
laaa  than  allllaaconda  alnca  CSDL  allowa  tlaa  unlta  aa 
aaall  aa  nanoaaconda. 

3.  Conaldaratlon  night  ba  glvan  to  aodlfy  tha  7ranalator  to 
handla  fractional  nuabara  vlca  juat  Intagara. 

Prlnltlvaa  In  tha  Raallzatlon  Voluna  would  alao  raqulra 
aodlflcatlon  If  thla  wara  laplaaantad. 

4.  7ha  7ranalator'a  daclalon  point  for  apaclfylng  16  bit 
conatanta  vlca  8  bit  conatanta  ahould  ba  batwaan  127  and 
128,  not  tha  currant  128  and  129. 

5.  7ha  7ranalator  ahould  ba  aodlflad  to  alwaya  apaclfy  an  8 
bit  praclalon  for  tha  boolaan  varlabla  In  a  ralatlonal 
prlaltlva,  auch  aa  a.aq,  ragardlaaa  of  tha  praclalona 
apaclflad  for  tha  othar  argunanta. 

6.  Varlablaa  apaclflad  aa  typa  DUPLEX  nuat  ba  uaabla  In 
tha  CSDL  atataaanta,  SENSE  or  ISSUE.  Currantly  tha 
7ranalator  ganarataa  ayntax  arrora  If  thla  la  attaaptad. 

7.  7ha  prlaltlva,  a. not,  can  not  ba  producad  by  tha 
7ranalator  avan  though  It  la  a  valid  prlaltlva  according 
to  Caraon,  author  of  tha  7ranalator. 

8.  If  tha  CSDL  atataaant  for  a  <SINPLE  D0>  la  placad  In  tha 
contlngancy  Hat  aaction  of  a  CSDL  problaa,  tha 
7ranalator  ganarataa  ayntax  arrora.  An  axaapla  la 

'DO  MANUAL  4',  which  aaana  tha  taak  MANUAL,  la  fourth  In 
priority  ralatlva  to  othar  taaka  llatad  In  tha 
contlngancy  Hat  aaction  of  a  CSDL  problaa. 
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APPENDIX  G 


SUMMARY  OF  TRANSLATOR  ERRORS 


This  appendix  containa  a  auaaary  of  Translator  arrors. 
Thaaa  arrora  ara  diacuaaad  in  datall  in  aaction  III.C.  and 
saction  IV.B.  If  tha  Translator  undargoas  aaintananca  in 
tha  futura,  manual  aditing  of  primitiva  liata  can  ba 
alininatad  during  tha  couraa  of  davaloping  controllar 
r aa 1 i zat i ona . 

1.  Format  arrora  ralating  to  spaeific  primitivas: 

a.fixadwait  --  colon  must  ba  praaant  aftar  tins  valua 
currant : 

a.fixadwait  <100) 
should  ba: 
a.fixadwait  (100: > 

a.forcona  valua  for  max  loop  count  must  ba  movad 

from  critaria  saction  to  argument  aaction 

currant : 

a . f or cona  (COUNT  *  0002 , 0C04 , 003 • 004 :8,8,8«120> 

should  ba: 

a.forcona  (COUNT, 0CO2, 0004,003, 004, 120:8,8,8) 

a.whilaatart  and  a.whilacon  —  valua  for  max  loop  count 

must  ba  movad  from  a.whilacon  to  a.whilaatart 
and  corract  praciaion  placed  in  a.whilacon 

currant : 

a.whilaatart (003: ) 
a.whilacon  (0TO1, 004:4) 
should  ba: 

a.whilaatart (003, 4: ) 
a.whilacon  (0TO1, 004:8) 

a.atboolwait  and  a.boolwait  time  period  should  ba  moved 
from  a.boolwait  to  a.atboolwait 

currant : 

a . atbool wait (003 : ) 
a.boolwait  (0TO1, 003, 004:8, 1700) 
should  ba: 

a . atboolwai t (003 • 1700 ; ) 
a.boolwait  (0TO1, 003, 004:8) 

s.waitlaaat  —  many  new  argumanta  should  ba  added  and  CSOL 
raquiraa  modification;  time  period  must  ba 
moved  from  critaria  aaction  to  argument 


ms  01  ^  I  17 

note  MHhari^  it  frot  lift  to  ri|M  and  froa  top  to  bottoa.  |  IS 

addmi  apn  OOOO-Tfff  ;  19 

oonaKt  pofwpply  to  card  caga  ;  20 

pat  fint  Prolog  ttd  7303  kaytaoard/diiplay  card  in  slot  2  ;  21 

conaact  tho  fblloaing  juapor  pint  ;  22 

x6  }  23 

yt  I  2t 

zO  i  25 

zl  i  2B 

diKomact  tho  fblloaing  juapnr  piim  \  27 

all  othart  {  28 

iddroM  ipact  11000000,  11000001  i  29 

put  16k  HHory  board  in  tlot  3  I  30 

»t  ju^iara  in  tho  fblloaing  pattam  I  31 

joapor  pattam  I  32 

al  11111111  I  33 

ne  10  I  3t 

a3  0  ;  35 

at  01  I  36 

ifi  1  1  37 

addraaa  ranga  for  card  it  4000-7fff  1  38 

1  thit  raalization  contaaaa  0.000  aatti  of  poaor 
contain!  0  chipi. 


D<bttq  film 

CAD60,  Version  1.3f»  Foib.  8«  1985 

•rrort  funm«p  d«t«ct«d  no  colon  in  prlaiitlvo 

37s.£lxo<lwolt  (250) 

funnap  forcing  colon  into  prinitlvo 

a.flxodwait  (250:) 

•rrort  f unnap  datactad  no  colon  in  prlnltlva 
44a.flxadwalt  (500) 

funaap  forcing  colon  Into  prlnltlva 
a.flxadualt  (500: > 


1  thin  raalization  conaunaa  0.000  watta  of  powar 
and  contalna  O  chlpa. 


2  arrora  In  cad80,  raault  «  O 


I 


le03i  dtfb 
•c04t  difb 
•eOSt  difb 
or|  32730 
IMli  dtfb  < 
ori  16828 


irtnrvt  out  bytt  fdr  diti 
irmrvt  ont  byit  tar  ditt 
irtitrvt  OM  byit  for  dtto 
{8  bit  vtriabli  ftOl  in  rtn 
{On  Ot  lb 


5  ■« 

mitor  soctionp 

tapvsrmp 

ll« 

Ot  lb  ttrfc  top  of  tht  polling  loop 

call  liKhl 

ita 

17t 

3b 

tost  for  contingtney  taehl 

Id  a,(tachl) 

13t 

3b 

gtt  contingtney  rtsult 

cp  11111111b 

til 

4t 

lb 

chtek  if  rtsult  trut 

nil  z,tanlitz 

1  iSt 

17t 

3b 

if  trut  txteott  task 

tif  not  trut  gtt  ntxt  tabtnt  or  tabond  to  loop 

nil  ItachS 

iSi 

17t 

3b 

ttst  for  eontingoney  atchfi 

Id  a,  (tachS) 

13t 

3b 

gtt  contingtney  rtsult 

cp  11111111b 

ill 

ot 

lb 

chock  if  rmlt  trut 

nil  z,lofflt 

i3i 

I7t 

3b 

if  trut  txteutt  task 

;if  not  trot  gtt  ntxt  tabtnt  or  tabtnd  to  loop 

call  ItachS 

iSi 

17t 

3b 

ttst  for  contingtney  tachS 

Id  a,(each5) 

ita 

13t 

3b 

gtt  contingtney  rmlt 

cp  11111111b 

111 

Ot 

lb 

chtek  if  rtsult  trut 

call  2|lDfflt  |Si 

17t 

3b 

if  trut  txflcukt  task 

;if  not  trui  gtt  ntxt  tabMit  or  tabMd  to  loop 
jp  Ispvsr  jgo  to  ttw  top  of  thi  pollini  loop  of  mitor  tablt 
;  this  span  is  dtlibsrattly  void,  this  is  a  diaqr  prinitivt. 

;  this  span  is  dtliborattly  void,  this  is  a  dway  prinitivt. 
tiO:jp  Ispvsr  {3i  lOt  3b  initialization  of  hardnam  is  co^lttt 
I  start  top  of  nain  mitor  loop 

■nd  {snd  of  softnarn  listisf  rtady  tar  m 


CMI80,  Version  1.3f,  Ftb.  8,  1385 
put  z-80  qM  board  in  slot  1 
■mx  high 

sot  j«apirs  in  tht  tallonins  psttsrn 


12 

13 


10 


u  a,iiiniiibiai 

JP  Pi  **4  |3i 

cpl  111 

Id  (4a 

Id  a,  (KOI)  (4a 
md  •  (li 

jp  Ztt04*3  (3a 

Id  a, (li|ht>  (4a 
oat  (0d0h),a  | 

Id  a,  (light)  (13t 
Id  hl,lfcOe  (IK 
add  a,  (hi)  (Tt 

JP  po  ,atl3  ;3a 
JP  c  ,♦*«  (3b 

Id  a,01ilillib(2a 
JP  its  ;3b 

Id  a,1000000()b  {di 
Id  («t01),a  {13t 
Id  a,  (KOI)  (4a 
Id  (light), a  (4a 
I 

(  aait  2S0  aa  (foi 
I 

Id  b,S)  (&  71 
Id  da,-i 

Id  hl,IOO  (; 
add  hi, da  (; 


0(20  7t  2b  raaalt  falaa  argi  )■  ar|2 

(3a  IK  3b 

(la  4t  lb  raaalt  traa  argl  It  arg2 

4a  13t  3b 

(4a  i3t  3b  gK  boolaan  valaa 

(la  4t  lb  chack  if  traa(ffh)  or  falaa(OQh) 
(3a  IK  3b  if  falaa  juap  oat  of  ahila-do  loop 

(4b  i3t  3b  gat  oontanta  of  outpat  variabla 
|3b  lit  2b  oatpat  to  data  port  of  7303  card 
(13t  4b  3b  atora  argl  in  aeoaulator 
iK  3i  3b  hava  hi  point  to  arg2  b]fta 

(Tt  2a  lb  add  accaaulator  aith  arg2 
;3a  IK  3b  if  no  ovarfloa  Kora  ramlt 
(3b  iK  3b  if  carry  tha  aaiiaiza  ainaa  ralt 

b(2a  7t  2b  pat  in  largaat  poaitiva  valaa 

(30  IK  3b 

(da  Tt  2h  pat  in  largaat  nagativa  valaa 

13t  4a  3b  aava  raaalt  of  add  in  ralt 
4a  13t  3b  aaaign  OtOl 
(40  13t  3b  to  light 

(for  zOte  4  Kz  clock) 


71  2b 
(30  IK 
(Si  IK 
(SB  lit 
(la  4t 
(k  IK 


Id  b,S)  (&  Tt  2b  Bit  valaa  of  oatar  loop  coantar 

Id  d^-1  (Sb  IK  3b  valaa  by  Kich  ianar  loop  la  dacraaatdi 

Id  hl,IOO  (Si  IK  3b  atartiag  ooatar  valw  for  imar  loop  i 

add  hl,da  (3b  lit  lb  dociBBiiit  ianar  loop 

nop  (la  4t  lb  diany  inat.  to  anha  innar  loop  Ot 

JP  c,l-2  (k  IK  3b  jaap  to  of  innar  loop  antil  hM 

djnz  i*0  (SK  13tS  2b  dacraawit  oatar  loop  oositar  antil  KO 

W4ijp  103  {3a  IK  3b  jaap  to  top  of  ahil»K)  loop 

rat  {3a  IK  lb  rKam  to  Bonitar,onit  onlita 

(prooadara  offU 

•offlti  nop  (la  4t  lb  antry  point  for  offlt 

Id  a,(lb01)  (4b  13t  3b  aMirteOl 

Id  (li^),a  ;4b  13t  3b  to  ligit 

Id  a,  (light)  (4b  13t  3b  gK  coKoKa  of  oKpK  variabla 
oot  (OiMh),a  (3b  lit  2b  oKpK  to  dKa  port  of  7303  card 

I 

{  aait  500  aa  (for  zOOa  4  Kz  clock) 


ldb,100  (i 
Id  dB,-l 

Id  hi,aoo 

add  hi, da 
«op 

jpe,i-2 
djnz  i-2 
rK 

IMli  dafb 


7t  2b 

{3a  IK  3b  valaa  by  ahich  ianar  loop  ia  dacraaKdi 
(3i  IK  3b  Karting  coKar  valaa  for  innar  loop 

(3a  lit  lb  dacraaaK  innar  loop 
(la  4t  lb  duany  inK.  to  naha  innar  loop  "dSt 
:3a  IK  3b  jaap  to  of  iiaiar  loop  aKil  hM 
(3i£  13tS  2b  dacraaaK  oatar  loop  coantar  aotil  KO 
k  IK  lb  rKam  to  aonitor,aait  offlt 
(raaarvB  ona  birta  for  dKa 


2b  aK  valaa  of  oatar  loop  cowtar 


dafb  2  (raaarva  ona  byta  for  data 


I*  / 


M  a,  b  {!■ 

4t 

lb 

1  100 

|ta 

4t 

lb 

«k  lifi  flap  of  a^l 

1  108 

M  «•  e  |la 

41 

lb 

mkan  arpl  ke  aocMolakar 

1  108 

»  h  |3i 

10k 

a 

arft  >  4  ■  4 

1  107 

M  a,UllUllb|te 

7k 

a 

v|l  ■  -  argi  ■  *  km 

1  108 

•  .*• « 

jr  •♦§  |3i 

Ilk 

a 

1  109 

• 

V,".' 

cp  b  |la 

4k 

lb 

I  180 

Id  •.lllimibiai 

71 

a 

mrik  filM  »fl  )•  ar^ 

1  181 

jp  p,  144 

10k 

a 

1  182 

cpl  |to 

4k 

lb 

milk  km  arK  Ik 

1  IS 

Id  (MOD.ai^i 

13k 

a 

1  180 

-  , 

Id  a,  (tMl)  |4i  lai  »  bn 

Mb  ki  Ml  if  an  li  km 

1  188 

cp  0  |SR  71  a 

1  188 

V-.- 

JP  1,  IK  iSi  III 

3b 

1  187 

lda,(lc41)  |4i 

13k 

a 

iMd  »|t  ii  ammMkr 

1  19i 

Id  hltlMQ  111 

10k 

a 

pitak  bl  kiargl 

1  181 

.  .* 

flK  Oil)  |K 

7k 

u 

anH-anf 

1  m 

JP  po  ,b4l3  {Ji 

10k  3b  r 

« iMrflai  am  mat 

1  181 

JP  e  ,b4«  tk 

10k  3b  If  orry  kbi  aiMa  Kaa  filk 

1  1> 

Id  a,MllllllbtK 

7k  a  pik  in  larpK  puiklw  «•!« 

1  181 

jpl45  |h 

10k  3b 

1  180 

Id  a,  10000000b 

7k  a  pik  in  larpK  Mpakiiii 

1  » 

Id  (ItOD.a  |UI 

4ia 

law 

molk  If  add  ii  Mlk 

1  la 

■  V- 

Id  a,(0t01)  i4a 

13k 

a 

aMlp  fkOt 

1  187 

•'v. 

Id  (MchSlia  |4a 

13k 

a 

ki  mM 

1  la 

•Kt  nop 

1  dbfi 

■  ucaiM  Ht 

1  M 

rat  |3i 

10k 

lb 

rikm  ki  watMiMlk  mPB 

I  110 

IprocKwa  onlita 

1  171 

fonlitai  IMP  |la 

4k 

lb  Mkry  paink  fw  ariika 

1  118 

Id  a,(lfc03)  |4a 

13k 

a 

aiilpaoi 

I  173 

I-/!- 

Id  (li|ht),a  |4i 

13k 

a 

ko  lij^ 

1  110 

•OStnop  111 

4k  lb  kop  if  idiili^loip 

1  ITS 

Id  a,(Ui^)  {4i 

13k 

a 

if  ar|l  to  argI  kbM  rilk^ 

1  la 

pinmi 

Id  b,  a  ill 

4k 

lb 

brngl 

1  in 

Id  a,(leOS)  |4i 

13k 

a 

1  118 

.V.‘. 

Id  c,  a  111 

4k 

a 

CHrg2 

1  179 

and  a  |li 

4k 

lb 

Mk  tip  flag  of  arg2 

1  la 

jp  p,«413  |3i 

10k 

a 

jop  if  arg2  if  poiikivi 

I  181 

Id  a,  b  111 

4k 

lb 

arg2  »  - 

1  la 

f-  *■ 

and  a  111 

4k 

lb 

«k  lip  flp  of  argl 

1  la 

Id  a,  c  111 

4k 

lb 

mkori  argl  ko  accMotokor 

1  la 

JP  1.  0417  |3i 

10k 

a 

argl  ■  -  «g2  ■  '  eop  bacbmp 

1  in 

Id  a,  0  iK 

7k 

a 

argl  •  4  argB  •  >  falw 

1  la 

.* 

jr  0413  |3k 

12k 

a 

1  187 

Id  a,  b  111 

4k 

lb 

1  la 

!  ■' 

and  a  |li 

4k 

lb 

«k  tip  flp  of  agl 

1  189 

Id  a,  c  111 

4k 

lb 

mkori  argE  ko  accmlikor 

1  in 

* '  '• 

JP  p,  047  |3d 

10k 

a 

argl  •  4  argl  ■  4 

1  191 

Id  a,llllllllb|ai 

7k 

a 

argl  ■  -  arg2  ■  4  tm 

1  192 

jr  049  |3i 

12k 

a 

1  193 

cp  b  111 

4k 

lb 

1  la 

it  ' 

112 

•  •'i 

jp  po  |3i 

jp  c  {31 

Id  •.ommibiai 
jp#«  in 

M  CilOOOOOOOb 
Id  {I3t 

Id  a,  (MOD  iM 
Id  (MchDia  }4a 
Nit  nop 
rit  iSi 

ipracidm  MchS 
ModiSt  nop  |ln 
Id  •.(MOD 
U  (MdiSia  {4n 
ina,(0dQli) 

Id  b,a 

and  11000000b 
cp  11000000b 
Jp  1,0*27 
id  a,b 

Md  10000000b 
cp  10000000b 
JP 

Id  a,b 

and  01000000b 
cp  01000000b 
jP2,0*27 
lda,l 

Id  (ar|l),a  | 

jpd*« 

Id  a,  4 

Id  (ar|D,a  { 

JP  0*18 
lda,3 

Id  (ar|l),a  | 

jpf*« 

Id  a,2 

Id  (ar|l),a  | 

nop 

Id  a,(ar|D  {4n 
Id  b,  a  (la 


Id  c,  a 
nd  a 

JP  p,0*13 
Id  a,  b 
and  a 
Id  a,  c 
JP  ■,  0*17 
Id  a,  0 
jr  0*13 


101  3b  if  no  oMrfloM  otoro  rwilt 
10k  3b  if  carry  tha  autiaiit  ainm  roll 
7t  2b  pat  in  larfHt  poaitiva  valaa 
lot  3b 

7t  2b  pat  in  lariaat  nafakiva  valaa 
4a  3b  aavB  rawlt  of  add  in  nit 
13t  3b  aisip  MOl 

13t  3b  to  aadil 

I  dafina  location  N1 

lot  lb  ratarn  to  oenitor,oiit  aachl 

4t  lb  entry  poi"*  ^  **chS 
13t  3b  anaign  leOl 

13t  3b  to  aodfi 

1  3b  lit  2b  data  port  road  fdr  inpak 
I  la  4t  lb  Biva  valaa  in  b  far  latar 
I  at  7t  2b  naak  tar  both  aaitchaa  on 
(  ta  7k  2b  dwek  tar  both  aaitchaa  on 

{  k  lot  3b  if  both  on  than  jaap  doan 
{la  4t  lb  pt  original  valaa  again 
{  ta  7t  2b  mA  tar  loft  aaitch  on  only 

I  2n  7k  2b  chaefc  for  loft  aaitch  on  only 

;  3i  lot  3b  if  loft  on  than  juap  doan 
I  la  4t  lb  gM  original  valaa  again 
;  2a  7t  2b  aaak  tar  ri|M  aaitch  on  only 

{  ta  7t  2b  chaefc  for  rt  aaitch  on  only 

{3i  lot  3b  ifrtonthonjaapdoan 
{20  7t  2b  both  aaitchaa  aaat  ba  off 
4a  13t  3b  both  off,  argl  •  Olh 

{  30  lOt  3b  jaap  to  and  of  roatina 
{  ta  7t  2b  both  aaitchaa  aaat  ba  on 
4n  13t  3b  both  on,  argl  •  04fc 

{  3a  lot  3b  jaap  to  and  of  roatina 
{2b  7t  2b  left  aaitch  on  only 
4a  13t  3b  laft  on,  argl  >  Olh 

{  3P  lot  3b  jaap  to  and  of  roatina 
{31  7t  2b  rigbt  aaitch  on  only 
4a  13t  3b  rigit  on,  argl  •  O0i 

{la  4t  lb  and  of  iapat  convaraion  roatina 
13t  3b  if  argl  la  than  ralt^ffh 


4t 

lb 

b-argl 

|4a 

13t 

3b 

4t 

lb 

CHrg2 

?!■ 

4t 

lb 

aat  aip  flag  of  arg2 

|3i 

lot 

3b 

jaap  if  vg2  ia  poaitiva 

It" 

4t 

lb 

arg2  ■  - 

ita 

4t 

lb 

aat  aip  flag  of  argl 

4t 

lb 

raatora  to  accoMlator 

|3i 

lot 

3b 

argl  >  •  arg2  ■  -  coop  bachaarda 

7t 

2b 

argl  •  *  argl  >  -  falaa 

|3b 

12t 

2b 

S.CONS 

S.CONS 

S.CONS 

S.CONS 

S.CONS 


<ocoi:o,8> 

<«C02:2,8> 

<8C03:l,8> 

t8C04S4,8> 

<«C05:7,8> 


lilog  r-60  iMMd  tystt 


or|  aZ73B  ira  pointar  is  pointisi  to  top  of  MRiry  -  stack  i 

•rtaiiidtfs  32  I  32b  dcfist  stack  aroa 

or|  16384  |to|iA  cods  afta*  rssarvsd  intarrspt  arts  I 

Iboldild  sp|Mak*32  |3i  lOt  3b  initialias  stack  pointi 

di  tls  4t  lb  disablt  laNiablt  intan^si 

jp  ffiO  ]3b  lot  3b  do  hardsart  initialiiatiow  i 
)  sits  op  7303  card  so  that  valua  at  data  port  can  bt  ! 

;  rsad  into  argl  by  tho  prisitlvs  s.ssnsacand 
or|  32734 
argil  dtfb  0 
org  16391 

:sat8  op  7303  card  so  that  ths  contonts  of  liftt  sill  bt  ostpot 
org  327S 


ligbti  dtfb  0 
org  16391 

Id  a,  0  I  a 
out  <0dlhi,a  I  a 

out  (0d0h),a  )  8 

org  32732  |< 

tachl:  difb  0 
org  16397 
org  32731  |l 

SKhS:  dtfb  0 
org  16397 
(procnkiri  tachl 
Ibachli  nop  }lt 

Id  a,(fc01)  |4t 
Id  (tachl), a  {4i 

in  a,  (OdOh) 

Id  b,a 

and  llOOOOOOb 


I  ai  7t  2b  srito  iidiiWt  tht  alNtamaaric  displa 

I  k  lit  2b  sand  it  to  control  p^  i 

I  3t  lit  2b  door  all  lads 

|8  bit  variablt  tachl  in  rat 
I  |0i  Ot  lb 


;8  bit  vsrioblf  tachS  in  rat 


lb  antry  point  for  tachl 
3b  OHip  toOl 
3b  to  aocM 

lit  2b  data  port  ivad  for  input 
4t  lb  sawB  valut  in  b  for  latar 

7t  2b  task  for  both  ssitchas  on 


P  19s 
P  20s 
P  21s 
P  22s 
P  23s 
P  24s 
P  2Ss 
P  26s 
P  27s 
P  26t 
P  29s 
P  30s 
P  31s 
P  32s 
P  33s 
P  34s 
P  3Ss 
P  36s 
P  37s 
P  38s 
P  39s 
P  40t 
P  41s 
P  42s 
P  43s 
P  44s 
P  4Ss 
P  46t 
P  47s 
P  48s 
P  49s 
P  50s 
P  51s 
P  52s 


■proe  (EACH5:> 

.sssign  (EACH5,«C0i:l,8> 
.ssnsscond  (ARG1:8> 

.Is  <«T01,ARG1««C04:8,6,8> 

.3sp£  <8T01,«02:8> 

.sub  (OTOl ••001.^003:8,8,8) 

.assign  (EA0H5,0T0l:i,8> 

.loe  (•02:) 

.  sxitproc  <  EA0H9 : > 

.gsnsrstsd  for:  ONLZTA 
.proc  <0NLITA:> 

.assign  <LIGHT,#003:8,8> 
.whilsstsrt(i03,4: ) 

.is  (•T01,LIGHT,«C05:8,8,8> 

.whilseon  <0T0l, 004:8) 

.issusvsnt  (LIGHT :8) 

.add  (•T01,LIGHT,t002:8,8,8) 

.assign  <LIGHT,«T0l:8,8) 
.fixsdwsit  (250) 

.whsnd  (•03,«04:) 

.sxitproc  (ONLITA:) 

.gsnsrstsd  for:  OFFLT 
.pros  <(WFLT:) 

.assign  (LIGHT,«00i:8,8) 
.issusvsnt  (LIGHT: 8) 

.fixsdwsit  (500) 

. sxitproc  (OFFLT : ) 

.gsnsrstsd  for:  SYSTEM 

.cons  (•(X)l,0:8) 

.cons  (•002,2:8) 

.cons  (•(X)3,i:8) 

.cons  (•004,4:8) 

.cons  (•CK>9,7:8) 

.var  (•T0l:8) 


•cons 

.cons 

.cons 

.cons 


1  :eaori 

2  :EA0H9 


!  ONLITA 
;  OFFLT 


:ms:1600, 

:RS:i600, 


S.  IRPUTP0RT(ARG1,TTL:8) 

S . OUTPUTPORT ( LIGHT , TTL : 8 ) 
S. VARIABLE  (SACNi:8,0> 

S. VARIABLE  (EACH5:8,0) 
S.LOC  (001 :> 

S.LOO  (002:) 


1.1  I'll  ■I'i'JH 


FUNCTION  EACHS: 

BINARY,!; 

EACHS: *0; 

SENSE  (ARGl); 

IF  ARG104  THEN  EACH5:>-1;  END  IF; 
END  EACHS; 

TASK  ONLITA; 

LIGHT :>!; 

WHILE  LIGHT  <«  7  :  4  DO 
ISSUE  <LIGHT>; 

LIGHT: -LIGHT  ♦  2; 

WAIT  2S0HS; 

END  WHILE; 

END  ONLITA; 


TASK  OFFLT; 

LIGHT;>0;  ISSUE  (LIGHT); 
WAIT  SOOHS; 

END  OFFLT; 


CONTINGENCY  LIST 

WHEN  EACH!  :  !600HS  DO  ONLITA; 
WHEN  EACHS  :  !600RS  DO  OFFLT; 


I 


P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 


!t.9«n«rat«d  for: 


SYSTEN 


2s. MAIN  (::) 

3d:FIRST  :  l;  1 

4s . inputport  <ARG!,TTL:8> 

Ss . ou tpu tpor t (LIGHT, TTL : 6  > 

Gs.vsr  (EACHl:e,0> 

7s.vsr  (EACHS:8,0) 


8t . gsnsrstsd 
Ss.proc 
lOs.sssign 
! !s . ssnsscond 
!2s.ls 
13s.]spf 
14s. sub 
ISs.ssslgn 
16s. loc 
!7s.sxltproc 
18t . gsnsrstsd 


for:  EACH! 

(EACH!:) 

(EACH1,8C0!:!,8) 

(ARG!:8) 

(•T0!,ARG1,«C02:8,8,8) 
(•TO!, 801:8) 
(•T01,«C01,8C03:8,8,8) 
(EACH!, OTOl: 1,8) 

(•01:) 

(EACH!:) 
for:  EACHS 
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END 

FILMED 

•-85 


